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INTRODUCTION 



Over four years ago, when the microcomputer revolution was little 
more than a low rumble, SoftSide, "Your BASIC Software Magazine," 
published its first issue. In its early days, SoftSide supported only one 
machine, the now-venerable TRS-80® Model I. As the revolution gained 
momentum in the last years of the 1970's, SoftSide instituted a separate 
version of the magazine for the new Apple II® personal computer. The 
Apple added something novel to the microcomputerist's world — color! 
What could come next? 

In August of 1980, SoftSide initiated a new format. That issue was the 
first combined magazine for the TRS-80 and Apple with the addition of 
another new personal computer, the Atari® 400/800. SoftSide was now 
providing quality BASIC software for three computers at a price that 
made it a great bargain (and still does). 

SoftSide has always relied on program submissions from its readers. 
Few publications have a readership so intimately involved with its 
month-to-month features. As SoftSide grew and improved, so did you, 
our readers. You made BASIC do previously unimaginable things. 
Through SoftSide, the once-mute TRS-80 and Apple computers were 
given voices, and the Atari veritably sang. 

Though its main purpose has always been to provide the best entertain- 
ment software in BASIC for the home computer user, SoftSide has ex- 
plored every facet of personal computing. The book you now hold con- 
tains utilities, space games, adventures, an information manager, a text 
editor, and more — in all, over twenty fully updated programs to amuse 
you and help you use your personal computer to greater advantage. In- 
cluded are some of our most popular programs ever, Quest, Flip-It, and 
SWAT. Most of the programs have been fully documented by the 
authors, and are accompanied by annotated variable lists, to help you 
learn more about BASIC and the way the programs accomplish what 
they do. If you are a regular reader of SoftSide, these are familiar 
features. If you're new to us, welcome to The Best of SoftSide. 
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USING THE BEST OF 
SOFTSIDE 



You are now holding the Atari version of The Best of SoftSide. 
Also available are the Apple and TRS-80 versions. 

This book contains over twenty programs and their accompanying ex- 
planatory articles and documentation selected from past issues of Soft- 
Side magazine. Each program is introduced and explained by the article, 
followed by a listing of the BASIC program itself. These listings were 
generated by an Atari computer just like yours, and appear in a 
38-column format, the same as the Atari's screen display. 

One of the features of the Atari computer is its multiplicity of special 
graphics characters and inverse video. The graphics characters are usual- 
ly control characters — that is, you type them by pressing a key while 
holding down the key marked CTRL. Inverse video is toggled on and off 
by the Atari logo key (J|lJ- These special characters are somewhat dif- 
ficult to represent in a printed listing, so we have adopted some simple 
conventions to ease your typing. See the next page for examples and ex- 
planations of these conventions. 

The greatest aid to your typing is SWAT, the Strategic Weapon 
Against Typos. This debugging program appears last in the book, and is 
followed by "SW^T Tables" for every program. The SWAT article will 
explain how to use the program to locate and elimiate typographical er- 
rors. Many of the programs in The Best of SoftSide originally appeared 
before the development of SWAT, and appear here with SWA T Tables 
for the first time. 

If typing doesn't sound like fun to you, be sure to see the special order 
form for the disk version of The Best of SoftSide elsewhere in this book. 

And now, we proudly present The Best of SoftSide. 
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PRINTED LINE LISTING CONVENTIONS 

Listed below is a short example of an Atari program listed according 
to SoftSide's standard conventions. The program, of course, is trivial, 
and doesn't even run; it is just a short example that should make our 
listing methods clear. 

1r"| pDTMT «\» 
iv fnim j 

20 A$-=" miBrammf f f f -f qal 1 1 moifflram"; REM Lower 

case characters are control. 

30 G7*=' ENEHY: ard":REH Lower case cha 

racters are control. 

40 R$="*=-+":REM Control characters. 

In line 10, you see the right brace character, " } ". This represents the 
clear-screen character, whose ATASCII code is 125. You type this 
character by first pressing and releasing the ESC key, located in the up- 
per left quadrant of your keyboard, then pressing SHIFT-CLEAR. On 
your Atari's screen, this will appear as an arrow that curves up and to the 
left. Go ahead and try this example on your computer. 

Let's go on to line 20. Notice the REM statement. It will be appended 
to the line in question, or it will occupy the immediately preceding line. 
Those lower-case characters represent the unprintable control (graphics) 
characters that your Atari can display. These are typed by pressing the 
appropriate letter key while you hold down the CTRL key. The string in 
line 20 begins with 5 CTRL-M's. Try it! 

In line 30, you can see the REM statement warning you about control 
characters. Also note the underlining. This represents characters to be 
typed in inverse video. You put your Atari in inverse video by pressing 
and releasing the Atari logo (J\\J key at the right end of the space bar. 
Pressing it again puts the computer back in the normal video mode. To 
type the string in line 30, you would press the Atari logo key before typ- 
ing the first "E". Then you would type "ENEMY: ". Note that the 
space after the colon is underlined; you must type it in inverse, as well. 
Now you've come to the lower-case letters. The REM tells you that these 
are graphics (control) characters. The "a" isn't underlined, so you 
should type the CTRL-A that it represents in normal video. The CTRL-R 
and CTRL-D are in inverse. Yes, even graphics characters can be either 
normal or inverse. The proper typing of inverse is important both to get- 
ting a correct display on the screen and to generating proper SWAT 
tables. 

Finally, we come to line 40. The string here has cursor-control 
characters in it — the arrow keys. Normally, when you press CTRL and 
an arrow key, the cursor moves in the direction of the arrow. These 
movement codes can be put into programs, too, but they don't show up 
on a printer. Since the arrow keys have other characters on them, we can 
use them to represent the arrow keys, with an accompanying REM to 
warn you. 

You type these characters by pressing and releasing ESC, then pressing 
the appropriate arrow key while holding down CTRL. 

That's really all there is to it, so go ahead and delve into The Best of 
SoftSide. 
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DEFENSE 



by Greg Schroeder 



Defense is an arcade-style game for 
one or two players requiring an Atari 
with 16K RAM (32K with disk) and 
one joystick. 

The object of Defense is to destroy 
as many of the aliens that fly across the 
moon's surface as possible, before 
your three fighter ships have been 
destroyed. 

When the game begins, you are given 
a brief description of your situation 
and mission while the computer 
redefines the Atari character set. Then 
you type 1 or 2 for the number of 
players in the game. A "get ready" 
prompt is given at the start of each 
player's turn. The computer will draw 
a text graphics display using the 
characters it previously defined in 
graphics mode 1, showing at the top 
each player's score, the highest score so 
far, and number of ships left; and at 
the bottom, how many aliens in the 
current attack wave remain. In the 
center is your playing field, with your 
special text graphics ship on the left 
side and the moon's surface along the 
bottom. 



Player #l's joystick is plugged into 
socket #2, and player #2's joystick 
plugged into socket #3. If you push the 
joystick up or down, your ship will be 
raised or lowered. But don't go too far 
down, because if you hit the ground, 
your ship will be destroyed. Push the 
joystick to the right and after about a 
second, you will gain airspeed and the 
ground will start to move. Pushing the 
stick to the left will cause you 
to lose airspeed and the ground to 
slow also. 

As many as three aliens at a time will 
appear on the screen when they have 
reached your section of the moon's 
surface. The scoring system for each 
alien is as follows: 

Yellow Drone: 10 points. 

Green Drone: 20 points. 

Blue Drone: 30 points. 

Red Drone: 40 points. 

Red Smiling Blob: 100 points. 

Green Smiling Blob: 200 points. 

To destroy these aliens, you must 
reach their altitude with your ship and 
fire a laser beam by pressing the fire 
button. When you hit them, their 
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scores are shown and added to your 
total score. 

The aliens fly in specific attack pat- 
terns. The drones will fly diagonally, 
bouncing off the top and bottom of the 
playing field, while the smiling blobs 
fly in an erratic pattern towards you 
and have a better chance of hitting 
you. Be careful, because the smiling 
blobs begin in the center of the screen, 
unlike the drones which start at the 
far right. 

If an alien does hit you, your ship 
will be shown exploding in a graphics 
display and one ship will be deducted 
from your possession. Then, if it is a 
one-player game, you will continue in a 
different ship, or if a two-player game, 
the next player will have a turn. 

When you run out of ships the game 
is over for you and your score is 
displayed. But there is a way to gain ex- 
tra ships. As you destroy the aliens, the 
number of remaining attackers in that 
wave will decrease on the bottom of the 
screen. If all the aliens in that wave are 
destroyed, then you will be given 500 
bonus points for each ship you have 
left. Every time you clear out four such 
waves, you are awarded a 
bonus ship. 

Note: The system reset key must be 
pressed before each run of the program 
to restore the Atari character set. 

Variables 

A(n,n): Nonvisible position of aliens 
along the moon's surface. 



A, I, J, X,: Miscellaneous variables. 

AL(n): Number of aliens in each 

player's current attack wave. 

A$: Moon surface picture string. 

B(n), C(n): X and Y positions of 

aliens on screen. 

D(n): Y movement of alien on screen. 

E(n): Type of alien on screen. 

F(l), F(2): Number of aliens in each 

player's attack wave. Used to reset 

AL(n). 

F(3), F(4): Number of attack waves 

destroyed by each player. 

GS: Ground speed. Controls speed of 

ground picture movement and alien 

movement. 

H$: Temporary string storage used in 

moving the moon's surface. 

PL: Current player number. 

PP: Total number of players. 

R(n): Stores number of aliens along 

moon's surface that are on the 

screen. 

S: Joystick value. 

SC(n): Each player's score. 

SH(n): Remaining ships for each 

player. 

SL: Trigger flag. If SL = 1 then the 

trigger is still pressed. 

ST: Pointer to beginning of redefined 

character set. 

TT: Counter for alien movement on 

screen. 

XC: Counter for alien movement 

along moon's surface. 

Y: Y axis of postion of player's ship. 

(X defaults to 1.) 

Yl: Temporary storage for Y. 



S3 SS 3S SS SS SS SS SS SS SS SS 
SS SS 

SS Atari BASIC SS 
SS 'Defense' SS 
SS Author: 6reg Schroeder SS 
SS Copyright (c) 1982 SS 
SS SoftSide Publications, Inc SS 
SS SS 

ss ss as ss ss ss ss ss ss ss ss 

Lines 10-50: Initialization 



Jump to subroutine for title and 
character redefinition. 



10 GQSUB 10000 
Dimension variables. 

15 DIH A!2 J 41!,B(4l i 'C!4),D(4),E(4!,F(4 
),SH(2},SC(2) i A$(2i!,Ht(5),R(4) l AL(2l; 
SC(1)=0:SC(2)=0 
The Best of SoftSide 2 
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Set arrays to zero. 

20 FOR 1=0 TO 4:B(I)=-1:C(I)=0:D(I)=0: 

E(I)=0:R(I)=0:NEXT I 

25 I=SC(l)t(SC!i)>SC(2))+SC(2!l(SC(2!> 

SC(l)):HSC=HSCJ!HSC>I)+Ii!I>HSC) 

Place aliens for two players in moon's 
surface variable. 

30 FOR 1=1 TO 2:F0R J=l TO 20:A!I,J)=I 
NT(RND(0)tl6!:NEXT J:NEXT I 

Define other variables for both players. 

40 SH(1)=3:SH(2}=3:SC(1)=0:SC(2)=0:AL( 
1!=20:AL!2)=20:F(1)=20:F(2)=20:F(3)=0; 
F(4)=0:XC=0 

Jump to "get ready" subroutine. 

50 G0SUB 6000 

Lines 100-150: Main loop. 
Increment alien on screen counter. 

100 TT=TT+1:IF TT=4 THEN TT=1 

Move moon's surface contained in A$. 
Use H$ as temporary storage. 

105 IF GSM THEN H$=A$(i,GS);A$=A$!GS+ 
l,20):fl$(LEH(ft$)+l)=H$:P0SITI0H 0,20:? 
§6;A$; 

Lines 110-140: Move ship. 
Check if joystick moved. 

110 S=STICK(PL):IF 5=15 THEN 150 
Check joystick to move ship up. 

120 Yl=Y: IF S/2=INT(S/2! AND Y>6 THEN 
Y=Y-1 

Check joystick to move ship down. See 
if ship hit ground. 

125 IF (S=5 OR 5=9 OR 5=13) THEN Y=Y+1 
:IF Y=20 THEN GOTO 3000 



Erase and reprint redefined ship 
character. 

130 POSITION 1,Y1:? #6;" ";:PQSITI0N 
1,Y:? #6;"XY"; 

Check joystick to move ship faster. 

135 IF 5)4 AND 5<B AND GS<2 THEN GS=GS 
+0.05 

Check joystick to move ship more 
slowly. 

140 IF S)B AND S<12 THEN GS=GS-0.05;IF 
GS<0 THEN 65=0 

Lines 150-170: Fire laser. 
Check If trigger released. 

150 IF STRIG(PL)=1 THEN SL=0:G0T0 200 

If trigger is still pressed, branch to alien 
movement. 

155 IF SL=1 THEN 200 

Print redefined text graphics laser. Make 
noise. Check if laser hit alien(s). 

160 SOUND 1,20,4, 15:P0SITI0N 3,Y:? *6; 

" ,■■■■ ":;F0R 1=1 TO 3; IF B( 

I)>2 AND INT(C(I))=Y THEN 4000 

161 REM LINE 160: 16 INVERSE <CTRL>'.' 

162 NEXT I 

Erase laser. Turn off sound. Set trigger 
pressed variable. 

165 POSITION 3,Y:? #6;" 
";:S0UND 1,0, 0,0; SOUND 2,0,0,0:SL=1 

Check if all aliens are gone. 

170 IF ALiPLKl THEN 4100 

Lines 200-300: Alien movement. 
Increment moon surface counter. 

200 XC=XC+i: IF XC=F(PL!+1 THEN XC=1 
The Best ofSoftSide 3 



Move aliens' position in array. 

210 IF A(PL,XC)>-5 THEN A(PL, XC)=A (PL, 
XC)-(GS):IF fl<PL,XC)<=0 THEN 1000 

Check if array contains no aliens. 

2Z0 IF B(TT)=-1 THEN 300 

Erase alien. Move alien along X axis. 
Check if it is off-screen. 

230 POSITION INT(B(TT)),INT(C(TT)):? # 
6;" ";:B!TT)=B!TT)-6S-0,5:IF BiTTKO T 
HEN B(TT)=-1;A(PL,R!TT))=15:G0T0 300 

Check if alien Is smiling blob, and 
branch to different movement routine. 

240 IF E(TT)>4 THEN 2000 

Check if alien is off-screen after moving 
along Y axis. 

250 C(TT)=C(TTI+D(TT):IF C!TT)<6 OR C! 
TT!>19 THEN C(TT)=C(TT)-D(TT):D(TT)=-B 
(TT) 

Check if alien hit player. 

255 IF INT(B(TT)!>=0 AND INT(B(TT!K=2, 
THEN IF INT(C(TT))=¥ THEN 3000 

Print specific redefined alien character. 

260 POSITION INT(B(TT)),INT(C(TT)!:G0S 

UB 260+E(TT)*5;GQT0 300 

265 ? «6;"Z";:RETURN 

270 ? #6;"z";:RETURN 

275 ? t6;'T';:RETURN 

280 ? 16; "7";: RETURN 

285 ? #6|°r";sRETURN 

290 ? #6; a t";:RETURN 

Return to start of main loop 
300 GOTO 100 



Lines 1000-2010: Set up new alien. 
Find empty alien variable. If none, then 
restart alien at end of moon's surface. 

1000 FOR 1=1 TO 3:IF B(I)=-1 THEN 1010 
1005 NEXT I:A(PL,XC)=15:6QT0 220 

Set Y value for alien. Set alien's 
movement. 

1010 C(I)=INT!RND(0)*12)+7:B!I)=RND(0) 
+0.1-1.5*(RND(0)<0.5) 

Pick alien type. Remember which 
surface alien it is. If alien is a smiling 
blob, then start X position at mid-screen. 

1020 E!I)=INT(RND(0!*6!+i:R(I)=XC:A(PL 

,XC)=-10:BU)=17:IF E!I)>4 THEN B(I)=1 

1 

1025 GOTO 220 

Move smiling blob along Y axis. 

2000 IF C1TTKY THEN D(TT)=1:GQT0 250 
2010 IF C(TT!>=Y THEN DiTT)=-l:G0T0 25 


Lines 3000-3070: You've been hit. 
Clear playing field. 

3000 FOR 1=6 TO 19:P0SITI0N 0,1:? 16;" 
";:NEXT I 

Reset aliens to surface start. 

3010 FOR 1=1 TO 3; IF B(I)>0 THEN A(PL, 
R(I)!=15;B(I)=-1 

Turn off sound. 

3015 NEXT I:FQR 1=0 TO 3;S0UND 1,0,0,0 
:NEXT I 

Print redefined ship character. Brighten 
ship in red. 



3020 POSITION i,Y;? #6;"XY";:F0R 1=2 T 
8 STEP O.hSETCOLOR 2,Tjl;NEXT I 
The Best ofSoftSide 4 
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Make explosion sound, first explosion. 
Initialize explosion loop. 

3025 SOUND 0,ZO,8,15:POSITION 1,Y:? 16 
;"*J";:FQR 1=15 TO STEP -0.2 

Make explosion sounds. 

3030 SOUND 0,20,8, I: SOUND 1,75,8,1+1:3 
0UND 2,175,9, I+3:S0UND 3,255,8,1+5 

Print explosion steps when ready. 

3040 IF 1=12 THEN POSITION 0,Y-1:? 86; 
" M";:P03ITI0N 0,Y:? i6;"*::f;:PQSIT 
IQN"i,Y+1;? U;"tt"\ 
3045 IF 1=8 TfeTPQSITIQN 0,Y-1:? 16; ' 
*£*"; -.POSITION 0,Y:? #6; "■/.++#"-, -.POSIT 
ION 0,Y+1:? 16;"*^*"; 
3050 IF 1=4 THEN POSITION 0,Y-1:? 16;" 
+^.";:P0SITI0N 0,Y:? i6;"+. i| .+ ,, ;:P03IT 
l6Tl,Y+l:? #6;"^"; 
3055 IF 1=1 THEN POSITION 0,Y-1:? 16;" 
";:P0SITI0N 0,Y:? #6;" ";:P0SIT 
ION 0,Y+1:? #6;" "; 

Turn off sound. Erase ship. 

3060 NEXT I:F0R 1=0 TO 3:S0UND 1,0,0,0 
:NEXT IsPOSITIQN 1,Y:? 16;" "; 

Set ground speed to zero. Subtract ship 
from player. Print number of ships left. 
Check if all ships gone. 

3062 GS=0:SH(PL!=SH(PL!-1:P0SITI0N 3+1 
2t(PL=2l,4:? 86;SH(PL);:IF SH(PL!=0 TH 
EN G0SU8 7000 

If there is another player, then change 
player variable. 

3065 IF SH!PL-1+2J(PL=1!)>0 THEN PL=PL 
+1:IF PL>PP THEN PL=1 

Jump to "get ready" routine. Jump to 
screen drawing. 

3070 GQSUB 5000;F0R 1=1 TO 1000;NEXT I 
:G0SUB 6000;XC=0;BOTO 100 



Destroy aliens. Make noise. Check if 
alien is a smiling blob. 

4000 SOUND 2,RND(0) 1200+50, 10, 10:POSIT 
ION INT(BfI)),INT(CiI)):? #6; : IF E(I)> 
4 THEN 4020 

Print score for drone. Add to total score. 

4010 ? i6;E(I!tiO;:SC!PL)=SC!PL)+E!I)$ 
10:GOTO 4030 

Print score for smiling blob. Add to total 
score. 

4020 ? «6:tE(I)-4m00::SC(PU=SG(PL! + 
(E(IM)tioO 

Clear alien variables. Print player's 
score. 

4030 B(1}=-1:A(PL,R(I)!=-5;P0SITI0N 2, 
3;? *6;SC(1!;:IF PP=2 THEN POSITION 14 
,3:? t6;SC(2); 

Decrease the number of aliens in attack 
wave. Return to see if more hit. 

4040 AL (PL) =AL (PL) -1: POSITION 2,22:? i 
6;"zt=°;AL(l);" ";:IF PP=2 THEN P0SITI 
ON "2,22:7 #6;"j,t=";AL(2!;" "j 
4050 NEXT I. -GOTO 165 

Lines 4100-4135: 

Attack wave destroyed. Clear screen. 
Restore Atari character set. Add to 
player's wave cleared total. Print 
message. Make noise. 



4100 GRAPHICS 17:P0KE 756,224:F(PL+2)= 

F(PL+2)+l:P0SITIQN 8,10:? #6; "attack": 

? 16;" wave ";F!PL+2); 

4110 ? #6;" destroyed":? !6:S0UND 0,20 

0,10,10:S0UND 1,201, 10, 10:S0UND 2,0,0, 





Print bonus message (500 points for 
each remaining ship). Add bonus to total 
score. 
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4120? #6;" BONUS - ";SH (PL) I5QQ.-SC 
(PL!=SC(PLI+SH!PL)*500 

Check if extra ship is awarded. Print 
message, 

4123 IF F(PL+2)/4=INT(F(PL+2)/4! THEN 
SH(PL)=SH(PL)+1:? 16:? U\° extra s 

HIE" 



Add more to next wave. Reset aliens on 
surface. 

4125 AL(PL)=FIPL)+5:F(PL)=F(PL)+5:IF F 
<PL) >40 THEN F(PL!=40;AL(PL)=40 

Make sure wave never exceeds 40 aliens. 

4130 FOR J=l TO AL(PL):A(PL,J)=INT!RND 
(0)$16!:NEXT J 

Jump to screen drawing. Jump to main 
loop. 

4135 FOR 1=1 TO 1500:NEXT I:6DSUB 6000 
:60T0 100 

"Get Ready" Clear screen. Restore Atari 
character set. Print message. 

5000 GRAPHICS 18: POKE 756, 224: POSITION 
4,5:? #6; "PLAYER ";PL 
5005 POSITION 4,6:? t6;" SET READY! I ":R 
ETURN 

Lines 6000-6070: 

Draw screen. Clear screen. Restore new 
character set. Turn off sound. 

6000 GRAPHICS 17:P0KE 756,ST/256:F0R X 
=0 TO 3:SQUND X,0,0,0:NEXT X 

Print message for both players (if only 
one player, print only his messages). 

6020 POSITION 6 3 0:? *6j H defense":P0SIT 

ION 3,2:? 16; "tl ******* 12": POSITION 

(18-LEN!STR*IH5C)))/2,1:? #6jHBC; 



6030 POSITION 2,3:? #6| SC ( 1 },■: POSITION 

3,4:? I6;SH(1); 

6040 IF PP=2 THEN POSITION 14,3:? I6;S 
C!2);:P0SITIQN 15,4:? #6;SH(2); 
6045 POSITION 2,22:? 86;"zt=";AL(l);:I 
F PP=2 THEN POSITION 12,22:? #6;"Zt="; 
AL!2!j * 

Print line made of redefined characters. 

6050 FOR 1=0 TO IMPOSITION 1,5:? #6;" 
H"S:NEXT I 

Assemble moon's surface picture in A$. 

6060 FOR 1=1 TO 20:A*!I,I)="3":NEXT I: 
A$(10,ll!="UV":A$(2,3)="Uv":A$<19,20)= 
B Uv" 

Print ground. Set ship position (Y) to 
mid-screen, and print ship. Make rocket 
sound. 



6070 POSITION 0,20:? #6;A$;:Y=12:PQSIT 



ION 1,Y:? tt6;"XY",-:S0UND 0,75,3,4:RETU 



Lines 7000-7050: 

Game over. Restore Atari character set. 
Print game over message and score. 

7000 POKE 756,224:6RAPHICS 18:P0SITI0N 
5,5:? 86; " PLAYER ";CHR$ (PL+176) ;:P0SI 
TI0N 5,6:? 86; "game over"; 
7005 POSITION 4,8:? 16; " score = ";SC!P 
L>| 

See if both players' games are over. 

7010 FOR 1=1 TO 400:NEXT I: IF SH!1)=0 
AND SH(PP)=0 THEN 7050 

Return to main loop. 



I 7020 RETURN 
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POP last GOSUB from stack. Jump to 
title routine. Jump to number of players 
input. Jump to set-up of variables. 

7050 FQR I=i TD 400;NEXT I: POP :G0SUB 

Lines 10000-10070: 

Redefine character set. Set top of 
memory five pages down. Initialize 
graphics. Jump to title display routine. 

11 000: GOSUB 11 100: GOTO 20 

10000 POKE 106,PEEK(106)-5:GRAPHICS 0: 

GOSUB 11000 

Set start of new character set pointer. 
10010 ST= (PEEK (106) +1)1256 

Move Atari character set from ROM to 
top of RAM. Jump to number of players 
input. 

10020 FOR X=0 TO 1023:P0KE ST+X,PEEK(5 
7344+X):HEXT X:GQSUB 11100 

Redefine "X" character to be back half 
of ship. Redefine "Y" to be front half. 
"Z" becomes a drone. "U" is CHR$(6). 
"V" is CHR$(7). 

10030 FOR X=0 TO 23: READ AiPDKE ST+448 
+X,A:NEXT XsFOR X=0 TO 15: POKE ST+424+ 
X,PEEK(ST+560+X):NEXT X 

"W" is CHR$(18) 

10040 FOR X=0 TO 7:P0KE ST+440+X,PEEK( 
ST+656+X):NEXT X 

"T" is a smiling blob. 

10045 FOR X=0 TO 7: READ A: POKE ST+416+ 
X,A:NEXT X 

"@" is flat ground and laser. 

10050 FOR X=0 TO 6:P0KE ST+256+X,0:NEX 
T XsPOKE 5T+263,255 

Initialize new character set. 



10055 GRAPHICS 1:P0KE 756,ST/256:RETUR 
N 

DATA for redefined characters. 

10060 DATA 0,0,0,0,30,15,7,7,0,0,0,0,0 
,192,252,255,0,8,20,62,127,42,20,34 
10070 DATA 0,126,153,153,255,189,195,1 
26 

Title display. Suppress cursor. Print title 
and instructions. 

11000 GRAPHICS 17:P0KE 752,1:P0SITI0N 
7,0:? #6; " defense ":? #6:? t6:? 16;" e 
vil aliens from" 

11010 ? #6;" beyond earth have invad 
ed the moon.":? 16:? 16 
11020 ? 16;" YOUR MISSION IS TO DE 
STR0Y AS MANY ATTACKING HAVES OF TH0 
SE ALIENS BEFORE"; 

11030 ? #6;" THEY LAUNCH THEIR FLEET 
S TO CONQUER THE EARTH.":? #6:? 16 
11040? 16)" YOUR JOYSTICK CQNTR 

QLS YOUR SPEED AND ALTITUDE. PUSH THE 
BUTTON TO FIRE. " 
11050 RETURN 

Lines 11100-11120: 

Number of players input. OPEN 
keyboard. Print message. 

11100 OPEN #2,4,0,"K:":P0SITI0N 0,23:? 
*6;"PUSH 1 OR 2 TO START"; 

Check if key "1" or "2" was pressed. 

11110 IF PEEK(764!O30 AND PEEK(764)<> 
31 THEN 11110 

GET key pressed. CLOSE keyboard. 
Decide whether one or two people are 
playing. 

11115 GET S2,I:PP=1:CL0SE #2: IF 1=50 T 
HEN PP=2 

Set player variable. Jump to "get ready" 
subroutine. 

11120 PL=1: GOSUB 5000: RETURN 
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Quest 



by Brian Reynolds 




"Quest 1" is a graphic adventure 
game that runs in 24K RAM. 

In "Quest 1" you become a strong 
warrior who journeys through an 
ancient maze in search of four huge 
sapphires and other treasures. These 
precious jewels are guarded by terrible 
Wraiths, Giants, Mummies, and other 
unpleasant monsters. To find the 
treasures, then, you must be very 
strong (to kill the monster) or very dex- 
trous (to sneak around the monster and 
steal the treasure). 

When you begin your quest, a 
character will be created for you. He 
(or she) will be either an Elf, a Dwarf, 
or a Human. He will be given ratings in 
strength (3-20) and dexterity (3-20), 
and a percentage rating according to 
his wounds (100% = no wounds, 
0% = demise). Being new to the field of 
questing, your warrior will not be 
much favored by the gods and will not 
have much magic to use. He will, 
however, have four different ways to 
fight: He will be given a random 
number of normal arrows, magic 



Atari version by Alan J. Zett 

arrows, and holy water, plus his trusty 
sword. Some healing potions will also 
be given for restoring wounds. 

After you have named your fighter, 
you will be teleported into a 
marketplace in a nearby town to 
bargain with a greedy merchant for 
more supplies. This usually takes only 
a short time, since the merchant will 
probably either sell to you quickly, or 
else refuse to sell at any kind of af- 
fordable price. After completing your 
bargaining, enter a '0' to begin your 
quest. 

When you enter the dungeon, a text- 
graphic display will be created on the 
screen, showing all your statistics in the 
corners and a picture of your current 
location in the center. A specially- 
defined text character represents you. 
Treasure chests appear as asterisks (*), 
while monsters are shown by the initial 
letter of their name. 

You can attempt your quest through 
the 58 rooms of the dungeon simply by 
killing monsters, taking the treasures, 
and moving on. However, this is not 
advisable for two reasons. First, you 
The Best of SoftSide 8 
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must remember the way out of the 
dungeon, or you will surely perish. 
And second, wandering monsters 
abound in this dungeon; if a wraith, 
for example, comes up behind you, he 
will probably kill you with one good 
blow. You should also be aware that 
frequent trips back for supplies are not 
wise, since, once you've garnered 100 
experience points, more monsters enter 
the dungeon while you're shopping. 

Note that the greater your dexterity 
rating, the more slowly the game will 
seem to move. This is because your 
higher dexterity, in effect, gives you 
more time to think and react relative to 
the pace of the game. As you ac- 
cumulate experience points, however, 
the pace and difficulty of the game will 
increase. 

When you find your way out of the 
dungeon, the computer will give you a 
list of all the treasures you retrieved, 
add in any arrows or potions you may 
have found, give you a chance to save 
the game, and let you quit if you want 
to. If you do quit, the computer will 
give you a list of all your fighter's 
abilities and possessions so that you 
can use him in a later game. If you elect 
to continue, you are teleported back 
into the marketplace to get more sup- 
plies and then to continue your quest. 

Commands are entered with single 
keystrokes, as follows: 

W: Move up. 
A: Move left. 
D: Move right. 
X: Move down. 

Any key other than above: Stop 
movement. 

N: Shoot a normal arrow (not effec- 
tive against Wraiths). 
M: Shoot a magic arrow. 
T: Toss a vial of holy water (affects 
only "undead" monsters: Skeletons, 
Zombies, Ghouls, Mummies). 
F: Fight in close combat (not effec- 
tive against Giants or Wraiths). 
O: Open a treasure chest when you 



are next to it. (It will disappear and 

its contents will be displayed on the 

screen.) 

H: Drink a healing potion. (This 

restores your wound rating to 100% .) 

On page 18 is a listing of Quest 2 
Data. You should type this listing as a 
separate program, and check it with 
SWAT. Then save it on tape or disk 
with the LIST "C:" or LIST "D: 
filename" command. 

Quest 2 Data supplies the informa- 
tion for a different dungeon. If you get 
tired of Quest 1's original dungeon, 
you can change dungeons by first 
loading Quest 1, then issuing the 
ENTER "C:" or ENTER "D:file 
name" command, as appropriate. 
Then save the resultant new program 
under a different filename or on 
another tape. Have fun! 



Variables 

Al: Number of normal arrows. 

A2: Number of magic arrows. 

DX: Dexterity rating. 

EP(*): Experience value of each 

treasure. 

GP(*): Gold value of each treasure. 

HW: Number of vials of holy water. 

M$(*): Single-character monster 

identifier. 

Ml(*): Type of monster in each 

room. 

M2(*): Number of monsters in each 

room. 

MN$(*): Names of the monsters. 

MS(*): Standard wound value for 

each monster. 

NM$: Name of fighter character. 

OP: Original price of an item at the 

market. 

PI: Current price of an item at the 

market. 

PT: Number of healing potions. 

Rl(*): Identifies each location as 

either a passage/intersection (= 1) or 

a chamber /room ( = 2). 
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R2(*,*): For each room, identifies 

what room you will enter by exiting 

up, down, left, and right respectively. 

RC: Race of fighter (0 = Human, 

1= Elf, 2 = Dwarf). 

RM: Current room number. 

ST: Player strength. 

T$(*): Name of each treasure. 

Tl(*): Identifies type of treasure in 

each room. 

TS(*): Quantity of each treasure type 

retrieved by player. 

TX,TY: X and Y coordinates of 

treasure. 

W: Wounds (multiply by 100 to get 

percentage). 

WX,WY: X and Y coordinates of 

monster. 

X5,Y5: X and Y coordinates of 

player. 

YY$: Single-character identifier for 

player. 

Editor's notes: 

XFR$, which you will find printed as 
a series of periods in the program 
listing, actually contains a Machine 
Language routine that quickly sets up a 
redefined character set for the Atari. It 



is very difficult to represent this string 
in the listing of the program, so here 
are explicit instructions on how to type 
it. 

In these instructions, each key is 
represented by something between 
brackets. Thus [h] means to type a 
lower-case "h"; likewise, [Atari] 
means to press the Atari logo key, 
which is found next to the right-hand 
shift key, and [CTRL-N] means to 
press the "N" key while holding down 
the "CTRL " key. Special note: [1] is a 
the numeral one — it is not the lower- 
case version of "L"! 

Type the following sequence exactly 
to produce XFR$: 
ihrfAtarifflfAtariJ "[CTRL-,] 
[A tarij JCTRL-EJ [K] fCTRL-EJ WJ 
DlfCTRL-.] }CTRL-E]iN]<f%] 
-fAtarifij] JCTRL-X]ffliCTRL-AJ 
JAtariMCTRL-EJiLJiispacebarJ 
4A tari] JCTRL-J 7A tari] fl] -fMJ 

iCTRL-QJiKJUIrtPNyJW fLMl 
fNM%] fN] f] fdj fPJ [m] [Atari] 

[CTRL-.] 
User must hit [System Reset] prior to 

every "RUN" of "Quest" to 

reinitialize the character set. 



SS SS SS SS SS SS 3S ss ss ss ss 

ss ss 

SS Atari BASIC SS 

SS 'Quest' SS 

SS Author: Brian Reynolds SS 

S3 Translator: Alan J. Zett 3S 

SS Copyright (c) 1982 SS 

SS SoftSide Publications, Inc SS 

S3 S3 

SS SS S3 SS S3 SS 33 SS SS SS SS 

Initialize character modification and 
print title page. 

1 GOSUB 30000:? CHRtl 125): POKE 752, 1:P 
OSITION 15,6:? ' QUEST I ' 

2 ? .-? "QUEST Has written by Brian Rey 
nolds n :0PEN 13, 4,0, T 

3 ? :? "(ATARI translation by Alan J. 



Zett)" 

7 60SUB 600:F0R X=l TO 276:T$fX)=" ":N 

EXT X:F0R X=i TO B8:HN$(X>=* ":NEXT X: 

YY*="3" 

B FOR X=0 TO 9:TS(X)=0:NEXT X 

9 FOR X=l TO 49:K*(X,X)=CHR$UNT!RND(0 

)*32)>:NEXT X:K*(49)=» ■ 

Data for monsters and treasures. 

100 DATA Worthless odds and ends,0,0,A 
bag of Copper Coins , 1,3, A snail Brass 
Statuette ,2,5 

102 DATA A bag of various Coins , 3,7, A 
purse of Gold Coins, 5, 12,3 Gold Nugget 
5,8,17 

104 DATA 4 small Turquoi5es ,7,15,A lar 
ge RMby , 15,30 — — — — 
106 DATA A tHUGEi Sapphire , 150, 150, A £ 
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ealino. Potion, 10,0 

108 DATA 10 Hagic Arrows , 15,0, 10 noraa 

1 Arrows , 10,0 

110 DATA BKELET0N, S,2,0RC,Q,3, Z0HBIE ,Z 

,4,6H0UL,g,6 

112 DATA HUGE SPIDER ,H,7,HUHHY > H,8,6IA 

HT,6,9, WRAITH ,W,9.9 "*"""~ *~ 

Data for the rooms. 

115 DATA 1,12,3,2,18,0,0,0 
120 DATA 2,0,0,0,1,4,2,8 
125 DATA 1,1,0,4,19,0,0,1 
130 DATA 1,0,0,5,3,3,1,1 
135 DATA 2,6,38,0,4,1,3,6 
140 DATA 1,8,5,9,7,0,0,0 
145 DATA 1,0,0,6,0,0,0,1 
150 DATA 2,0,6,0,11,2,11,2 
155 DATA 2,0,0,10,6,2,3,1 
160 DATA 2,0,0,0,9,5,1,4 
165 DATA 1,0,0,8,12,0,0,1 
170 DATA 2,0,1,11,13,2,5,3 
175 DATA 1,0,0,12,14,0,0,1 
180 DATA 2,15,26,13,17,5,1,1 
185 DATA 2,0,14,0,0,0,0,1 
190 DATA 2,0,17,0,0,1,2,5 
195 DATA 1,16,20,14,0,4,1,1 
200 DATA 2,0,19,1,26,2,2,7 
205 DATA 2,18,30,3,27,3,2,2 
210 DATA 1,17,21,0,0,0,0,1 
215 DATA 1,20,22,0,0,6,2,9 
220 DATA 1,21,23,0,0,2,3,12 
225 DATA 1,22,24,0,0,4,2,10 
240 DATA 1,23,25,34,0,0,0,11 
250 DATA 2,24,0,0,0,7,3,9 
260 DATA 2,14,0,18,0,3,2,1 
270 DATA 2,0,28,19,0,4,1,2 
280 DATA 1,27,29,31,0,0,0,1 
290 DATA 2,28,0,0,0,5,1,10 
300 DATA 2,19,0,0,0,1,2,3 
310 DATA 1,0,32,0,28,0,0,4 
320 DATA 1,31,33,43,0,0,0,1 
330 DATA 2,32,35,0,0,5,1,8 
340 DATA 1,0,0,35,24,0,0,12 
350 DATA 1,33,36,45,34,0,0,5 



360 DATA 1,35,0,37,0,7,1,10 
370 DATA 2,0,0,0,36,8,3,9 
380 DATA 1,5,49,0,39,0,0,1 
390 DATA 1,0,40,38,0,0,0,6 
400 DATA 1,39,0,0,41,2,3,2 
410 DATA 1,42,46,40,43,4,1,7 
420 DATA 2,0,41,0,0,7,3,8 
430 DATA 2,0,44,41,32,6,1,11 
440 DATA 1,43,45,0,0,0,0,5 
450 DATA 3,44,0,47,35,0,0,1 
460 DATA 2,41,47,48,0,5,1,7 
470 DATA 1,46,0,50,45,0,0,3 
480 DATA 1,0,0,49,46,0,0,1 
490 DATA 2,38,51,52,48,6,1,6 
500 DATA 1,0,0,51,47,2,5,10 
510 DATA 1,49,0,53,50,4,3,5 
520 DATA 2,0,0,0,49,6,1,6 
530 DATA 2,0,54,0,51,5,1,8 
540 DATA i,53,0,0,55,0,0,i 
550 DATA 2,0,0,54,56,2,3,2 
560 DATA 1,0,0,55,57,6,1,8 
570 DATA 1,0,0,56,58,7,3,11 
580 DATA 2,0,0,57,0,8,4,9 
590 RESTORE :B0T0 603 

Initialize the variables. 

600 DIH HN$(89),H*(8),HS<8),R1(58),R2( 
58,4),H1(58),H2(58),T1(58),T*(277),EP! 
121,6PU21,TS!9),YY*<1) 

602 DIH X$(23),NH$(20),A*(5),K$(49),X1 
* (2), 1$ (2): RETURN 

603 FOR X=l TO 12:READ X*,X1,X2:T*<(XI 
23)-22)=X*:EP(X}=Xl:GP(X)=X2:NEXT XjT* 
<277)="#" 

605 FOR X=l TO 8:READ X$,Xl$,X2sHN*(<X 

*11)-10)=X$:N*(X)=X1*:HS<X)=X2:NEXT X: 

HN*(B9)="tt u 

610 FOR X=l TO 58:READ Xl!RHX>=XlsFOR 

Y=l TO 4:READ X1:R2(X,Y)=X1:NEXT Y 
615 READ Xl!HKX)=Xl:READ X1:M2(X)=X1: 
READ X1:T1(X)=X1:NEXT X 
620 RH=liAl=1000iA2=1000:B=l:P2=2:P0KE 

752,0 
BOO IF Bl=l THEN SOSUB 20000 
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805 IF Bl=l THEN B1=0:60T0 900 
810 POSITION 2,12:? "Kant to use an ol 
d character "5: INPUT A$:? sIF A*{1,1>< 
>"Y" THEN 60SUB 21000.-60T0 900 
812 ? "NAHE: "p INPUT NH* 
815 ? "STRENGTH: ";: INPUT ST: IF ST>20 
OR ST<3 THEN 815 

820 ? "DEXTERITY: "j: INPUT DXsIF DX>20 
OR DX<3 THEN 820 
825 ? "HOUNDS: ";: INPUT WsW=H/100:lF W 
<0.1 OR H>1 THEN 825 
830 ? "EXPERIENCE: "5: INPUT EP 
832 ? "BOLD: ";: INPUT 6P 

835 ? "IS <S)HE AN ELF "?: INPUT A*: IF 
A*U,1)="Y" THEN RC=1 

836 IF RC=0 THEN ? "IS (S)HE A DHARF " 
;: INPUT A$:IF M(i f i)»'Y" THEN RC=2 
B40 ? "HAGIC ARROWS: "j: INPUT A2:? "NO 
RHAL ARRONS: ";: INPUT Al 

845 ? "HEALING POTIONS: ";: INPUT PT 

846 ? "HOLY HATER: ";: INPUT HH 

Ask if you want to load in an old game. 

850 ? "Want to load in an old gane ";: 
INPUT A$:IF AW, DOT THEN 900 
860 ? "FROH CASSETTE OR DISK ";: INPUT 
A*: IF A*(i,l)=*C 8 THEN ? "HIT <RETURN> 
WHEN READY ":G0T0 880 
862 IF A$!1,1!<>"D" THEN 860 
870 OPEN 82,4,0,"D:QUEST.DAT" 
872 FOR X=l TO 58: INPUT *2;X1:H1(X)=X1 
:INPUT »2;X1:M2(X)=X1:INPUT #2;X1:T1(X 
)=X1 

874 GOTO 884 

880 OPEN #2,4,0, "CsQUEST.DAT" 
882 FOR X=l TO 58: INPUT #2|Xl:HKX)=Xi 
s INPUT »2;X1:H2(X>=X1:INPUT #2;X1:T1(X 
)=X1 
884 NEXT X:CLDSE 12 

Marketplace and bargaining routine. 

900 ? CHR$! 125); "BOLD: "}6P 

901 ? :? "You're at a sarket. Prices h 



ere are:":? 

903 ? "[13 HA6IC ARROH 2 

GOLD 123 FOUR NORMAL ARROHS 1 

BOLD" 
905 ? "133 HEALING POTION 15 

GOLD [43 HOLY HATER 3 

GOLD" 

910 ? :? "OK, ";NH$i", what do you nee 
d ";:INPUT A*:IT=VAL(A$) 

911 IF IT>4 OR IT<0 THEN ? CHR*(253)j" 
I DON'T SELL THAT!":6QT0 910 

912 IF IT=0 THEN 990 

913 IF IT-1 THEN Pl=2 

914 IF IT=2 THEN Pl=l 

915 IF IT=3 THEN Pl=15 

916 IF IT=4 THEN Pl=3 

917 ? :? "At ";P1;" BOLD apiece,":? "h 
oh §any will you buy ";: INPUT A$:NH=VA 
L(A$):PRINT 

918 IF NH<0 THEN PRINT CHR*(253);°VERY 
FUNNY! !":PRINT "I DON'T BUY THINGS, I 
SELL THEH!!": GOTO 916 

920 Pl=PltNH 

921 0P=P1 

925 ? :? "That coies to ";P1;» GOLD, " 

■Mi 

930 ? "How much will you give le ";:IN 

PUT A:? 

935 IF A<0P/10 THEN ? "F0R6ET IT!!!":B 

0T0 901 

940 IF A<0P/2 THEN ? "NOT INTERESTED." 
.-GOTO 901 

941 IF A>=P1 THEN ? "YOU GOT A DEAL!": 
BOTO 950 

942 Y=A/P1:X=RND(0):IF X>Y THEN ? "Not 
interested. ":P1=INT<(0P+P1)/2J:GQTQ 9 

30 

945 P1=INT((PU2+A)/3):IF PK=A THEN 9 
41 

947 ? "How about ";P1;", »;NH*s"?":GQT 
930 

950 IF 6P<P1 THEN ? :? "WHAT!! YA CAN' 
T PAY YER DEBTS! ":? " YOU'LL BE THROWN 
INTO PRISON FOR THIS1 ";CHR«(253) :END 
955 GP=GP-P1:? "You now have ";GP;" 60 
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LD, "jNH* 

957 IF IT»4 THEN HN=HW+NH 
960 IF IV1 THEN A2=A2+NH 
965 IF IT=2 THEN A1=A1+NM*4 
970 IF IT=3 THEN PT=PT+NH 
980 GOTO 901 

Enter dungeon; check for too many 
arrows. 

990 ? »0K, "}NH*j", PRESS <RETURN> TO" 
i? "ENTER THE DUNGEON!" 

991 EL=0 

992 IF EPM00 THEN EP=EP-100:EL=EL+100 
:F0R K=i TO 58:M2(X)=N2iX)M.i:NEXT X: 
eOTO 992 

993 EP=EP+EL 

994 IF EL>500 THEN FOR U=EL TO 500 STE 
P -100:FOR X=l TO 5B:r12(X)=H2(X)/l.l:N 
EXT X : NEXT 

995 INPUT At:? CHR* (125): POKE 752,1 

996 A3=0:A4=0 

997 IF A2>ST»2 THEN A4=A2-ST*2:A2=ST*2 
:? "MORE THAN ";STt2;" MA6IC ARROWS NO 
ULD":? "WEIGH YOU DfNHf:? 

998 IF A1>ST*2 THEN A3=A1-ST*2:A1=9T*2 
:? "MORE THAN ";ST*2;" ARROWS WOULD*:? 

"NEI6HT YOU DOWN":? 

999 FOR X=l TO 500:NEXT X 

Upon entering a new room, draw it with 
its monsters and treasures. If this is 
room one, give option to leave. 

1000 POKE 752,1:? CHR* (125): IF B1=0 TH 
EN B1=1:60T0 1005 

1001 IF RNOl THEN 1005 

1002 PRINT "Do you wish to leave the d 
ungeon "j: INPUT A$ 

1003 IF At(l,l)="Y" THEN 800 

1004 ? CHR* f 125) 

1005 ON RKRH) GOSUB 10000,11000 

1010 IF T1(RH)>0 THEN TX=INT(RND<0)*9) 

+16:TY=INT<RND(0)I6)+9:POSITION TX,TY: 

PRINT "*"; 

1015 X5=20:Y5=11 

1020 IF It="W" THEN ¥5=22 



1022 IF I*="X" THEN Y5=2 
1024 IF I*="D" THEN X5=2 
1026 IF I*="A" THEN X5=38 
1028 POSITION X5,Y5:? YY*j 

1030 IF H2<RH)>=1 THEN NX=INT(RND!0)t9 
)+16:WY=INT!RND(0)*6)+9 

1031 HS"HS(H1(RH))/10 

1050 IF H2!RH)>=1 THEN POSITION HX,WY: 
PRINT H$(H1(RH),N1(RH)); 

Print player status. Check for wandering 
monsters. 

1055 POSITION 2,1:? a ARROWS: B ;Ai; a ";: 
POSITION 2,0:? "H ARROWS: "iA2;" "; 

1060 POSITION 2,21:? "ST=";ST;" DX=':D 
X; POSITION 2,2:? "WOUNDS: ";INT(W*100+ 
0.5);" "5 

1061 POSITION 2,3:? "R00S: u |RH;" "', 

1062 POSITION 31,17:? 'POTIONS: H j :POSI 
TION 33,18:? PT;» "j 

1063 POSITION 31,19:? "H HATER: ";:P0SI 
TION 33,20:? HW;" "j 

1065* IF H2!RH)>=1 THEN POSITION 27,0:? 
" MONSTER: »: : POSITION 27,1:? MNIUHHR 
H)*ll)-10,HlfRH)»ll) 
1070 IF H2(RH)<1 THEN POSITION 27,0:? 
"^POSITION 27,1:? " 

1075 IF H2(RH)>1 THEN POSITION 27,2s? 
"NUHBER:";INT<H2{RN));" "; 

1077 IF H2(RNK=1 THEN POSITION 27,2:? 
« «. 

1080 POSITION 2,17:? "EX:";INT<EP):" " 
;:P0SITI0N 37,3:? "W"; POSITION 36,4:? 
"A DEPOSITION 37,5:? "X"; 

1085 POSITION 2,18:? "GP:":6P;" ■; 

1086 IF M2(RH)O0 OR UNT(RND(0)*100)+ 
DOl THEN 1090 

1087 FOR X=l TO 7: POSITION 4,23:? "WAN 
DERINB MONSTER ! ";:FQR Y=l TO 40: NEXT Y 
^POSITION 4,23 

108B ? " ";:F0R VI T 

15:NEXT VsNEXT X:N2(RW=INT(RND(0)t3 
1+1:M1(RH)=INT(RND(0)*8)+1:60T0 1030 
The Best ofSoftSide 13 



Accept a command from the keyboard 
and call the appropriate subroutine. 



1090 At=":F0R X=l TO DX*10-EP:IF PEEK 
(764)=255 THEN NEXT X:G0T0 1093 

1091 GET #3,AjP0KE 764,255:A*=CHR*(A) 
1093 IF T1(RH)>0 THEN POSITION TX,TY.-P 
RINT "*"; 

1095 IF A$=" THEN A*=I$:G0T0 1100 
1097 I$=A* 

1100 IF I$="H" THEN GQSUB 15100 
1105 IF I$="X" THEN G0SUB 15200 
1110 IF I*="D" THEN G0SUB 15300 
1115 IF It="A" THEN 60SUB 15400 
1120 IF I*="H" THEN I*=»":IF PT>0 THEN 
PT=PT-1:H=1 

1125 IF I$="H" AND A2>0 THEN I$="":A2= 
A2-1:G0SUB 15500 

1130 IF I*="N" AND ADO THEN I$="":A1= 
A1-1:60SUB 15600 
1135 IF I$="F" THEN GOSUB 16000 

1140 IF I$="0" THEN GOSUB 17000 

1145 IF 1$="T" AND HW>0 THEN It="";HH= 

HH-h GOSUB 18000 

If there is a monster, move it, and let it 
attack. 

1200 IF H2(RH)<1 THEN 1030 

1201 IF HS<=0 THEN FOR X=l TO LEN(K$): 
POSITION NX,HY:? K*<X,X) ; :NEXT X;H2(RH 
)=H2(RH)-tiEP=EP+NS(Hl!RH)):60T0 1030 

1205 HX=SGN(X5-HX) 

1206 IF HX<X5 THEN HX=1 

1207 IF WX=X5 THEN HX=0 
1210 HY=SGN!Y5-HY) 

1215 POSITION BX,HY:? " "; 

1220 LOCATE HX+HX,HY, AsPOSITION WX+HX, 

WY:? CHR*IA);:IF A=32 THEN HX=«X+HX 

1225 LOCATE HX,HY+WY,A:PQSITIQN HX,HY+ 

WY:? CHR*(A);:IF A=32 THEN HY=HY+HY 

1230 IF ABSWX-X5)>1 OR ABS!HY-Y5)>1 T 

HEN 1050 

1235X=RND(Q):IF X>MS THEN 1050 

1240 X=RND(0)*HS 



1245 W=iH:IF B<0 THEN 5000 
1250 GOTO 1050 

End-game routine for the "Great 
Dungeon In The Sky." 

5000 FOR X=l TO LEN(K«) POSITION X5.Y5 
!? K$<X,X);:NEXT XsFOR X=l TO 400:NEXT 

X;? CHR*U25> 

5005 ? "MELCOHE TO HEAVEN, "jNH*$»!!i a 
5010 ? "I HOPE YOU ENJOYED YOUR SHORT 
LIFTIHE IN HHICH YOU ACCUMULATED ";GP; 
" GOLD" 

5015 ? "AND "jEPj" EXPERIENCE POINTS." 
5020 ? s? :? "HOULD YOU LIKE TO BE REI 
NCARNATED AB A NEH CHARACTER ";: INPUT 

A$:IF A*(1,1)="N" THEN GRAPHICS 0:END 
5025 POKE 106,PEEKU06)+5:6RAPHICS 0:R 
UN 



Subroutine to draw a passage/ 
intersection. 



10000 X1=R2(RM,1) 

10010 IF X1>0 THEN FOR X=0 TO 7:P0SITI 
ON 15,X:PRINT "I";: POSITION 25,X:PRINT 
"fc";:NEXT X 
10012 IF X1<=0 THEN POSITION 15,7:? "& 

10015 X1=R2(RH,2) 

10020 IF X1>0 THEN FOR X=15 TO 22:P0SI 

TION 15,X:PRINT "&"; iPOSITION 25,X:PRI 

NT "&";:NEXT X 

10022 IF X1<=0 THEN POSITION 15,15:? " 



10025 X1=R2(RH,3) 

10030 IF XI >0 THEN FOR X=25 TO 38:P0SI 
TION X,7:PRINT "IMPOSITION X,15:PRIN 
T "& B ;:NEXT X 

10032 IF X1<=0 THEN FOR X=7 TO 15:P0SI 
TION 25, Xi? VjjNEXT X 
10035 X1=R2!RH,4) 

10040 IF XI >0 THEN FOR X=2 TO 15:P0SIT 
ION X,7:PRINT "&";: POSITION X,15:PRINT 
"{c n ;:NEXT X 

10042 IF X1<=0 THEN FOR X=7 TO 15,'POSI 
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TIDN 15,Xi? "&";:NEXT 1! 
10045 RETURN 

Subroutine to draw a chamber/room. 

11000 POSITION 11,4:? "MAMt'jjPOBITIO 
N 25,4:? "HUM 1 ; 

11010 POSITION 11,18:? *UtU a ; :PQSITI 
ON 25,18:? ■fcMU's 
11012 FOR X=5 TO 7:P0SITI0N 11,)!:? "& 
&";:NEXT X 

11014 FOR X=15 TO 17:P0SITI0N 11, X:? " 
& &";:NEXT X 

11015 X1=R2(RH,1) 

11020 IF X1>0 THEN FOR X=0 TO 4:P0SITI 
ON 15,X:PRINT "&"; (POSITION 25,X:PRINT 

"&"j:NEXT X 
11022 IF Xi<=0 THEN POSITION 15,4:? "& 

11025 X1=R2!RH,2) 

11030 IF X1>0 THEN FOR X=18 TO 22:P0SI 

TION 15,X:PRINT "i 8 ;: POSITION 25,X:PRI 

NT "VjiNEXT X 

11032 IF X1<=0 THEN POSITION 15,18:? ■ 

11035 X1=R2<RH,3) 

11040 IF XDO THEN POSITION 29,7:PRINT 
■tttUtttttr'fiPOSITION 29,15:PRINT ■* 

mmm"; 

11042 IF X1<=0 THEN FOR X=7 TO 15:P0SI 

TION 29,X:? "VpNEXT X 

11045 X1=R2<RH,4) 

11050 IF XDO THEN POSITION 2,7:PRINT 

"MMttWif; POSITION 2,15:PRINT "TO 

MAMM"; 

11052 IF X1<=0 THEN FOR X=7 TO 15:P0SI 

TION 11, X:? °i";:NEXT X 

11055 RETURN 

Subroutine to move player about on the 
screen. 

15100 IF ¥5=1 THEN 15105 
15102 LOCATE X5,¥5-1,H:P0SITI0N X5,Y5- 
1:? CHR*(H):IF M<>32 THEN RETURN 
15105 POSITION X5,Y5:? » "j 



15110 Y5=Y5-1:IF Y5<1 THEN RH=R2(RH,1) 

:G0T0 1000 

15120 POSITION X5,Y5:? YY*;:RETURN 

15200 IF ¥5=21 THEN 15205 

15202 LOCATE X5,Y5+1, IMPOSITION X5,Y5+ 

1:? CHR$(H):IF H<>32 THEN RETURN 

15205 POSITION X5,Y5:? " "; 

15210 Y5=Y5+1:IF Y5>21 THEN R«=R2(RH,2 

):B0T0 1000 

15220 6QT0 15120 

15300 IF X5>37 THEN 15305 

15302 LOCATE X5+1,Y5,H;PQSITI0N X5+1,Y 
5:? CHR*!H):IF N<>32 THEN RETURN 

15303 LOCATE X5+2,Y5, IMPOSITION X5+2,Y 
5:? CHRKHIiIF H<>32 THEN RETURN 
15305 POSITION X5,Y5:? " "j 

15310 X5=X5+2:IF X5>37 THEN RN=R2(RH,3 

) : GOTO 1000 

15320 60T0 15120 

15400 IF X5<3 THEN 15405 

15402 LOCATE X5-1,Y5,N:P0SITI0N X5-1,Y 
5:? CHR$(N):IF H<>32 THEN RETURN 

15403 LOCATE X5-2,Y5,N:P0SITION X5-2,Y 
5s? CHR$(H):IF H<>32 THEN RETURN 
15405 POSITION X5.Y5:? " "} 

15410 X5=X5-2:IF X5<3 THEN RH=R2<RN,4) 
:60T0 1000 
15420 60TO 15120 

Normal-arrow firing routine. 

15500 GOSUB 15699 

15505 X=RND(0)/2:IF RC=1 THEN M-O.i 

15506 IF RC=2 THEN X=X+0,1 

15507 X=X-(EP/1000) 

15510 X=X-0.2 

15511 X=X-(DX/100) 
15515 IF X>H THEN RETURN 

15520 X=RND(0):IF MM THEN X=X+0.2 

15522 IF RCOl THEN X=X+0.1 

15523 IF RC=2 THEN X=X+0.1 
15525 HS=HS-X: RETURN 
15599 RETURN 



Magic-arrow firing routine. 
TheBestofSoftSide 



15 



15600 GOSUB 15699 

15601 IF M(RN)=8 THEN RETURN 

15605 X=RND(0!/2:IF ROl THEN X-X-0.1 

15606 X=X-<DX/100) 

15607 IF RC=2 THEN X=X+0. 1 

15608 X=X-(EP/1000> 
15610 IF X>N THEN RETURN 

15620 X=RND(0hIF RC=1 THEN X=X+0.1 

15621 IF RC=2 THEN X=X-0.1 
15625 NS=HS-X:RETURN 

15698 RETURN 

Calculate monster range, aim, and shoot 
arrow. 

15699 IF HX=0 THEN HX=31:IF WY=0 THEN 
HY=8 

15700 X6=X5:Y6=Y5-i:X7=HX:Y7=HY 

15701 IF X6=X7 THEN SL=0sX8=X7iX9=X6 

15702 IF X60X7 THEN SL=!Y6-Y7)/!X6-X7 
):X8=X6:X9=X7 

15703 60T0 15708 

15705 IF X6>X7 THEN SL=(Y6-Y7)/(X6-X7> 
:X8=X6:X9=X7 

15706 IF X7>X6 THEN SL=!Y7-Y6)/<X7-X6) 
:X8=X7:X9=X6 

15707 IF X7=X6 THEN SL=0:X8=X7:X9=X6 

15708 Y8=Y6:Y9=Y7 

15709 Y=Y8 

15710 SL=SUSGN(Y8-Y9):IF Y6<Y7 THEN S 
L=-SL 

15711 IF X6>X7 THEN SL=-SL 

15712 FOR X=XB TO X9 STEP SGN!X9-X8+0. 
01);F0R XX=1 TO 5:NEXT XX 

15713 IF Y>22 OR Y<1 OR X>37 OR X<3 TH 
EN NEXT XsGOTQ 15750 

15715 LOCATE X,Y,A:IF A=38 THEN X9=X-1 

.■GOTO 15750 

15720 POSITION X,Y:PRINT "+»pY=Y+SL:N 

EXT X 

15750 Y=YB:F0R X=X8 TO X9 STEP S6N(X9- 

X8+0.01):P0SITIQN X,YsPRINT " ";:Y=Y+S 

LsNEXT X 

15760 RETURN 

Subroutine for close combat with a 
monster. 



16000 IF ABS«X5=«X)>1 OR ABS<Y5-HY)>1 
THEN RETURN 

16001 IF NKRN)=8 THEN RETURN 

16002 IF H1(RH)=7 THEN RETURN 

16003 IF MHRH)=6 THEN «=H-0.05 

16005 X=RND!0):IF RC=0 THEN X=X-0.1 

16006 X=X-(»X/100) 
.16007 IF RC=2 THEN X=X-0.3 

16008 X=X-(EP/1000) 
16010 IF X>M THEN RETURN 

16015 X=RND(0)sIF RC=0 THEN X=X+0.1 

16016 X=X+(ST/100) 

16017 IF RC=2 THEN X=X+0.2 
16020 HS=HS-X: RETURN 

Subroutine for opening a treasure chest. 

17000 IF ABS(TX-X5)>1 THEN RETURN 
17005 IF ABS(TY-Y5)>1 THEN RETURN 

17010 POSITION TX,TY:? " "; 

17011 TX=0:TY=0 

17015 POSITION 12,23:? T*((TKRH)*23)- 
22,T1(RH)*23);:F0R X=l TO 120:NEXT X 

17020 FOR X=12 TO 34;P0SITI0N X,23s? " 
"pNEXT X 

17021 IF T1(RH>=10 THEN PT=PT+1:G0T0 1 
7026 

17022 IF T1(RN)=11 THEN A2=A2+10:60T0 
17026 

17023 IF Tl(Rrl)=12 THEN A1=A1+10:80T0 
17026 

17024 TS(T1(RH))=TS(TKRM))+1 

17025 GP=GP+GP(T1(RH)) 

17026 EP=EP+EP(T1(RH)):THRH)=0 
17030 RETURN 



Subroutine to throw a flask of holy 
water. 



18000 H=«1(RH):IF H=2 OR H=5 OR H=7 TH 
EN RETURN 

18005 GOSUB 15699:P0SITI0N HX,HY:? " B 
; : NA=HX : MB=«Yj HX=X5sHY=Y5: 60SUB 16000: 
HX=WA:HY=HB:POSITION X5,Y5:? YY*j:RETU 
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End-of-game procedures, such as saving 
games and printing out information on 
the player's character. 

20000 PRINT "MOULD YOU LIKE TO SEE THE 
TREASURES YOU RETRIEVED FROM THE DU 
NBEON";: INPUT A* 

20005 IF A$I1,1)="Y" THEN FOR X=l TO 9 
:? STR*<X);". ";T$( (Xt23)-22,X*23) jCHR 
*<127);TS(X):NEXT X 

20010 FOR X=l TO 9:TS(X)=0:NEXT X 

20011 A1=A1+A3:A2=A2+A4 

20015 ? :? "WOULD YOU LIKE TO SAVE THI 
S BANE ";: INPUT A$ 

20017 IF Mil, DOT THEN 2002B 

20018 ? "CASSETTE OR DISK ";: INPUT A*: 
IF A$(1,1)="C" THEN ? "HIT <RETURN> WH 
EN READY ":G0TD 20024 

20019 IF At(l,lK> u D" THEN 2001B 

20020 OPEN 12,8,0, "D;QUEST.DAT" 

20021 FOR X=l TO 5B:PRINT #2;Hl!X)jPRI 
NT i2;H2<X):PRINT MjTUX) 

20022 GOTO 20027 

20024 OPEN #2,8,0,"C;BUEST.DAT" 

20025 FOR X=l TO 58:PRINT #2jBHX):PRI 
NT I2;H2(X):PRINT #2;T1!X) 

20027 NEXT X: CLOSE #2;? "SAVE COMPLETE 

20028 ? "Mould yOu like to stop jidh "; 
■.INPUT A$:IF A$(l,DO"Y" THEN RETURN 
20030 ? "OK. So that you can use this 
characteragain at a later tine:" 

20035 ? "NAHE: ";NN$;" RACE: ";:IF RC= 
THEN ? "HUNAN" 

20036 IF RC=1 THEN ? "ELF" 

20037 IF RC=2 THEN ? "DWARF" 

20045 ? "HEALINB POTIONS: "?PT 

20046 ? "HOLY HATER: ";HW 

20050 ? "ARROWS: ";Alj" MAGIC ARROWS 

: ";A2 

20055 ? "BOLD: ";6P;" EXPERIENCE: "; 

EP 

20060 ? "STRENGTH: ";ST;" DEXTERITY: 

";DX 
20065 ? :? "Would you like to try agai 
n":? "as a tNEHt character ",-: INPUT At 



:IF A*U,1)="Y" THEN 5025 

20099 GRAPHICS 0:? "CONE QUESTING ABAI 

N SOHETINE!!":END 

Subroutine to create new characters. 

21000 ? "OK, I'll take you one.":F0R X 
=1 TO 100:NEXT X:GP=INT(RND(0)t20)+6:S 
T=INT<RND(0)tl7)+4:DX=INT(RND(0)»17)+4 
21005 RC=INT(RND(0)t3):Al=3:A2=INT<RND 
!0)tl0)+l:PT=INT(RND(0)t3)+2:HH=INT(RN 
D(0)*5)+1:EP=0:W=1 

21010 ? "STRENGTH: ";ST;" DEXTERITY: 
";DX 

21015 ? "BOLD: ";GP;" HEALINB POTION 
S: ";PT 

21020 ? "HOLY WATER: ";HW; B RACE: "; 
:IF RC=0 THEN ? "HUNAN" 

21021 IF RC=1 THEN ? "ELF" 

21022 IF RC=2 THEN ? "DWARF" 

21025 ? "ARROWS: "5AI; HA6IC ARROWS 

: ";A2 

21030 ? :? "What will you naie this ch 

aracter": INPUT NH$:? :? "HAVE A FUN QU 

EST, ";N«ti"!!!i" 

21040 FOR X=l TO 200:NEXT X:? CHR$(125 

): RETURN 

Redefine "&" as a red block, and "@" 
as a man character. 

30000 POKE 106,PEEK!106)-5:6RAPHICS 0: 
? "INITIALIZING . . .":SETC0L0R 2,7,0 
30010 START= {PEEK (106) +1)1256 

30020 DIN XFR$(38):XFR*="....... 

":Z=USR(ADR(X 

FR*)): RESTORE 3005 

30021 REN TO TYPE XFR$ IN LINE 30020, 
REPLACE THE STRING OF PERIODS WITH THE 
STRING DESCRIBED IN THE DOCUMENTATION 
30030 POKE 756, START/256 

30040 FOR X=0 TO 7:P0KE X+START+4B,85: 
NEXT X:F0R X=0 TO 7:READ XhPOKE X+STA 
RT+256,X1:NEXT X: RETURN 
30050 DATA 152,216,255,27,25,60,102,23 
1 
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i 6QSUB 30000:? CHR$(125):PQKE 752, 1:P 
0SITI0N 15,6:? " QUEST 2 * 
2 ? :? "QUEST 2 was written by Brian R 
eynolds'tOPEN 13,4,0, »K° 



4 REH QUEST 2 DATA BASE BY T. 
115 DATA 2,41,2,36,11,0,0,1 
120 DATA 2,1,8,3,12,1,1,2 
125 DATA 1,0,0,4,2,3,2,7 
130 DATA 2,0,5,0,3,2,1,2 
135 DATA 1,4,6,9,0,6,3,10 
140 DATA 2,5,0,0,7,4,1,5 
145 DATA 1,0,0,6,8,7,1,6 
150 DATA 1,2,0,7,0,5,2,3 
155 DATA 1,0,0,10,5,1,3,7 
160 DATA 2,0,0,53,9,7,3,6 
165 DATA 1,0,12,1,35,2,1,2 
170 DATA 2,11,13,2,0,4,2,1 
175 DATA 1,12,14,0,0,5,2,4 



HENRICH 



180 DATA 2,13,0,15,0,7,4,8 
185 DATA 1,0,0,16,14,3,1,1 
190 DATA 2,0,23,17,15,6,2,7 
195 DATA 2,0,19,18,16,8,1,1 
200 DATA 1,0,20,0,17,1,2,4 
205 DATA 2,17,0,20,0,6,3,8 
210 DATA 2,18,21,0,19,4,1,1 
215 DATA 2,20,0,0,22,5,2,12 
220 DATA 1,0,0,21,23,1,2,3 
225 DATA 2,16,0,22,24,7,1,1 
240 DATA 1,0,0,23,25,8,1,2 
250 DATA 2,0,0,24,26,8,4,9 
260 DATA 1,27,0,25,0,2,1,1 
270 DATA 2,30,26,0,28,5,2,7 
280 DATA 2,29,0,27,45,6,1,2 
290 DATA 2,0,28,30,0,7,5,9 
300 DATA 1,31,27,0,29,4,2,5 
310 DATA 1,32,30,0,0,1,2,3 
320 DATA 2,0,31,34,33,5,3,8 
330 DATA 1,0,0,32,0,3,1,4 
340 DATA 2,35,0,0,32,1,1,1 
350 DATA 2,36,34,11,0,3,2,6 
360 DATA 2,40,35,37,1,8,5,1 
370 DATA 1,39,0,0,36,2,1,2 
380 DATA 2,0,0,0,39,6,3,8 
390 DATA 1,46,37,38,0,1,2,5 
400 DATA 1,0,36,0,41,7,1,3 
410 DATA 1,42,1,40,0,1,1,1 
420 DATA 2,43,41,0,0,4,1,2 
430 DATA 1,50,42,0,0,5,2,5 
440 DATA 2,48,0,46,0,2,6,8 
450 DATA 2,0,0,28,47,6,3,8 
460 DATA 2,47,39,0,44,3,2,7 
470 DATA 1,0,46,45,48,1,2,1 
480 DATA 2,49,44,47,0,4,1,2 
490 DATA 1,0,48,0,50,1,1,1 
500 DATA 2,0,43,49,51,8,3,8 
510 DATA 1,0,52,50,0,5,1,3 
520 DATA 2,51,54,0,0,2,2,4 
530 DATA 2,0,0,54,10,7,4,9 
540 DATA 1,52,55,0,53,4,5,7 
550 DATA 1,54,0,0,56,7,1,11 
560 DATA 2,0,0,55,57,1,2,6 
570 DATA 1,0,58,56,0,5,3,7 
580 DATA 2,57,0,0,0,8,10,9 
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SPACE RESCUE 



h™ Matt Diitfar 



Space Rescue is an arcade-style game 
for a 16K Atari with one joystick. 

The year is 2086, Just a few months 
ago, the United States launched an ex- 
ploration party to search the planet 
Arcturus III for any signs of life. Our 
radar, however, has just picked up a 
huge meteor storm headed straight for 
that solar system which threatens the 
lives of all the people there. You are 
their only hope of survival. You must 
launch your two-person rocket from 
the mother ship orbiting around the 
planet, land at the one landing pad, 
rescue the people stranded there one at 
a time, and then return to the mother 
ship — all while trying to avoid 
crashing your fragile rocket into one of 
the deadly meteors which can easily 
destroy it. 

When the game starts, the computer 
will show the mother ship moving back 
and forth at the top of the screen with a 
cluster of meteors right below it. When 
you think that the ship is right over a 
path through the meteors, press the fire 
button on the joystick to launch your 
rocket. Then you must guide the rocket 
down to the landing pad by moving 
your joystick, being careful not to col- 
lide with any of the meteors. To slow 
down, press the fire button to apply 
thrust. After you have landed, one of 



the people will run over to your ship, 
and then you must make your ascent to 
the mother ship and dock with her, 
again carefully avoiding the deadly 
meteors. On the way up, pressing the 
fire button will launch a missile which 
can destroy a meteor, for which you 
can receive points. 

If one of your rockets collides with a 
meteor, then it is destroyed. The game 
continues until all three of your rockets 
are destroyed, at which point the game 
is over. When all of the people are gone 
from the bottom of the screen, the 
computer will award you 50 bonus 
points for each person safely brought 
to the mother ship, and will then give 
you six more people to save. If you suc- 
ceed in rescuing all six, you will be 
awarded one bonus ship. During the 
game, the score is displayed at the bot- 
tom of the screen underneath the lan- 
ding pad. 

Variables 
A, B: Used in determining whether or 
not a collision has occurred. 
D: Direction in which mother ship is 
travelling (1 or -1). 
Dl: Difficulty level. 
G: Missile-launched flag. 
L: Position of landing pad at bottom 
of screen. 

P: Value returned from input com- 
mands. 
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PI: Number of people left at bottom 

of screen. 

P2: Number of people safely brought 

to mother ship. 

S: Position of mother ship at top of 

screen. 



SC: Score. 

SL: Number of ships left. 
U: Rocket-going-up flag. 
X, Y: Position of rocket. 
XM, YM: Position of missile. 



SS SS SS SS SS SS SS SS SS SS SS 



SS 
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Atari BASIC 
'Space Rescue' 
Author: Matt Rutter 
Copyright (c) 1982 
SS SoftSide Publications, Inc SS 
SS SS 

SS SS SS SS SS SS SS SS SS SS SS 

Lines 30, 50, 60, 80, 280, and 370 contain 
graphics and/or control characters. 

10 GOSUB 1100:G0SUB 1000 

Initialize variables. Set character base 
register (POKE location 756) to 
beginning of altered character set. 
Display six people at the bottom of the 
screen. 

15 D1=0:SC=0:SL=3 

20 GRAPHICS 0:P0KE 756,R:PQKE 752,1:SE 

TCOLQR 2,0,0:S=34:D=-1:P1=6:P2=0 

25 FOR 1=21 TO 23:P0SITI0N 0,1?? "f";: 

POSITION 38,1:? a f";:NEXT I 

Draw the landing pad, and put the 
meteors on the screen. 

30 L=INT!23*RND!1)+5):P0SITI0N L,21:? 

" ^POSITION L-1,22:? "zPOSITI 

ON L-2,23:? " p ";:B=0:B=0 

40 FOR 1=1 TO DiSI0+30:P0SITI0N RMDfl) 
135+1, RND1M15+3:? CHR$(20) jsNEXT I:P 
0SITI0N L,23:? SC;:P0KE 77,0 
45 FOR AZ=1 TO SL:S0UND 0,37,10,10:F0R 
11=1 TO 100:NEXT W:S0UND 0,0,0,0:NE1!T 
AZ 



Move mother ship back and forth. 



50 POSITION S,0:? 
++ ";:S=S+D 

51 REH LINE 50: NO 



=+++t+ 



=++ 



M-SPACE CHARACTERS 



ARE CONTROL CHARACTERS 

60 POSITION S,0:? "gnnnf=+++++b"fCHRt! 
97)}CHR*(9B);CHR*<99)5 , v=++t+iM';:IF 
S<3 OR S>33 THEN D=-D 

61 REH LINE 60: CHARACTERS ARE CONTROL 
CHARACTERS 

65 IF STRIG(0)=0 THEN 80 

70 FOR H=l TO 25: NEXT H:60T0 50 

80 POSITION S+2,2:? " ":F0R H=l TO 50: 
NEXT IMPOSITION S,2:? "» §":X=S+2:Y= 
1 

81 REM LINE 80: NON-SPACE CHARACTERS 
ARE CONTROL CHARACTERS 

Check for player input. 

100 U=0:X1=X:P=STICK(0):IF P<12 AND Y> 

1.5 THEN GOSUB 300 

120 Y1=¥+1:P=STRIG(0):IF P=0 THEN Y1=Y 

+0.5 

Check for collision. 

130 FOR I=X1-1 TO Xl+lsLOCATE I,Y1,A:I 
F A=20 OR A=160 THEN 500 
133 IF B=20 OR B=160 THEN 500 
135 NEXT I 

Move ship, and display flame if 
appropriate. 

140 POSITION X-1,Y:? B "POSITION X, 

Y+l:? " ":X=X1:Y=Y1:P0SITI0N X-1,Y:? " 

abc" 

145 LOCATE X,Y+1,B:IF P=0 THEN P0SITIO 

N X,Y+1:? "d n :S0UND 1,20,8,15 

147 IF P=l THEN SOUND 1,0,0,0 

Check for successful landing. 

150 IF X=L+1 AND INT!Y+0.5)=20 THEN P0 
SITI0N X,Y+1:? GHR$(160):SC=SC+50:PQS1 
TI0N L,23:? SC;:G0T0 400 



The Best of SoftSide 



20 



)))})))) 



)))))))) 5 



155 IF Y>20 THEN 500 
160 60T0 100 

Erase old meteors, and display new 
ones. 

200 X=L+1:Y=20: COLOR 32s FOR 1=3 TO 18s 
PLOT l,IsDRAHTO 37 f I:NEXT I 

205 FOR 1=1 TO DU15+40:P0SITIQN RNDil 

)t35+l,RND(l)*15+3:? CHR«<20);:NEXT I: 

C=0 

207 POSITION L,21:? " " 

Make launching sound, check for input, 
and move ship up one space. 

210 SOUND 0,5tY+90,8,B:Xl=X:Yl=Y:P=STI 
CK(0):IF P<12 THEN B0SUB 300 
220 C=C+liIF C=3 THEN C=0:Y1=Y-1 

Check for collision. 

225 FOR I=X1-1 TO X1+1:L0CATE I,Y1,A:I 
F A=20 THEN 500 
227 NEXT I 

Move rocket, and check for input. 

230 POSITION X-1,Y:? " "POSITION X, 
Y+l:? • "j:X=X1:Y=Y1:P0SITI0N X-1,Y:? 
"abc»:P0SITI0N X,Y+1:? "d"? 
240 IF STRI6(0)=0 AND 8=0 AND Y>4 THEN 
G0SUB 340 

250 IF G=l THEN 6QSUB 350 
255 IF Y=l THEN 270 
260 GOTO 210 

Check for successful docking with 
mother ship. 

270 IF XOS+2 THEN 500 
275 P2=P2+1 

280 SOUND 0,0,0,0:P0SITI0N 8,2:? " a«a 
":C0L0R 32:F0R 1=3 TO 23:PL0T 1,1: DRA 

HT0 37, I: NEXT I 

281 REN LINE 280: NON-SPACE CHARACTERS 
ARE CONTROL CHARACTERS 

If all the people are gone from the 



bottom of the screen, Increase the 
difficulty, and branch to the bonus 
routine. 

285 IF P1=0 THEN P1=6:D1=D1+1:60T0 650 
290 B0T0 30 

Subroutine to move ship according to 
Input. 

300 IF P>8 AND P<12 AND X>2 THEN X1=X- 

1 

310 IF P<8 AND X<36 THEN X1=X+1 

320 RETURN 

Launch missile. 

340 6=hXH=X:YH=Y:F0R 1=10 TO 100 STEP 
10:S0UND 1,I,10,10:NEXT IsSOUND 1,0,0 
.0 

7 - 

Move missile and check for collision 
with meteors. 

350 POSITION XH,YH:? " ■j:YH»VH-l 

360 LOCATE XN,YH,A:IF A=20 THEN P0SITI 

ON XN,YN:? " "; j 6=0: SC=BC+20:P0SITI0N 

L,23i? SC;: RETURN 

370 POSITION XH.YM:? M'iIF Y«<4 THEN 

POSITION Xfi,YH:? " ":6=0 

380 RETURN 

Successful-landing routine. Wave arms 
of the next person, and move him over 
to the rocket. 

400 SOUND 1,0,0,0:Y=27-P1:X=38:X1=34:X 
2=L+5:IF PK4 THEN Y=24-P1:X=0:X1=1:X2 
=L-3 

410 FOR 1=1 TO 8:F0R J=101 TO 103:P0SI 
TI0N X,Y:? CHRI(J};:F0R H=l TO 30:NEXT 
W:NEXT i 

420 POSITION XI, Y:? "YAY!";:IF I/2=INT 
(1/2) THEN POSITION XI, Y:? " "; 
430 NEXT IrPOSITION X,Y:? " "; 
440 FOR I=X+SBN(X1-X) TO X2 STEP SBN(X 
2-X) 
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450 FOR J=101 TO 103 STEP 2:P0SITI0N I 
,23:? CHR$(J);:FQR H=l TO 20:NEXT U 
455 SOUND 0,90,8, 15s SOUND 0,0,0,0:NEXT 
J:POSITION 1,23:? " ";:NEXT I 
460 X=I+SSN(XI-X2):Y=23:F0R 1=1 TO 2:X 
=X+S6N(L-X1):Y=Y-1 

465 FOR J=101 TO 103 STEP 2-.P0SITIQN X 
,Y:? CHR$(J)j:FOR H=l TO 20:NEXT H:NEX 
T J:POSITIQN X,Y:? - ";:NEXT I 
470 P1=P1-1:U=1:60T0 200 

Explosion routine. 

500 SOUND 0,0,0,0:SOUND 1,75,8,15 

520 Xl=X-2:X2=X+l:XO=X:XS=2:vO=15:Vl=l 

5:V2=15:P0SITI0N X-1,Y:? " "sPOSITIO 

N X,Y+1:? " " 

530 FOR I=Y TO 22:P0SITI0N XI, Is? "ah" 

; POSITION X2,I:? a ic H ;:IF U=l THEN PO 

SITION X0,I:? V; 

540 SOUND 0,20,8,V0:S0UND 1,40,8,V1:S0 

UND 2,70,8, V2:V0=vO*0.7:Vl=VU0.75:V2= 

V2t0.78:XS=XS-0.2:IF XS<0 THEN XS=0 

550 FOR W=l TO 30:NEXT IMPOSITION XI, I 

:? " "jiPQSITION X2,I:? " a ;:IF U=l 

THEN POSITION XO,I:? " "; 

560 X1=X1-XS:IF XK1 THEN Xl=36 

570 X2=X2+XS:IF X2>36 THEN X2=l 

580 NEXT I: FOR 1=0 TO 3: SOUND 1,0,0,0: 

NEXT I:SL=SL-1:IF SL=0 THEN 600 

590 60T0 2B0 

End of game. Print score and game-over 
message, and wait for input. 

600 6RAPHICS 0:P0KE 752, IsPOSITlOH 16, 

10:? "BANE 0vER":P0SITI0N 12,12:? "YOU 

R SCORE IS "jSC 

610 POSITION 8,14:? "PUSH START TO PLA 

Y ABAIN" 

620 IF PEEK<53279)=6 THEN 15 

630 60T0 620 



Bonus routine. Award 50 points for each 
person safely brought to the mother 
ship. 



650 FOR 1=3 TO 23: PLOT 1,I:DRAHT0 37,1 

sNEXT I 

660 POSITION 16,10:? " tBQNUSf iPOSITIO 

N 15,12:? "SC0RE=";SC 

670 FOR 1=1 TO P2:P0SIT10N 12+1*2,14:? 

"f":SC=SC+50:P0SITI0N 21,12:? SC 
680 SOUND 0,I*20+40,10,10:FOR H=l TO 5 
0:NEXT WsNEXT I 

690 FOR I=P2 TO 1 STEP -1:S0UND 0,1*20 
+40,10,10:F0R «=1 TO 50:NEXT H:NEXT I: 
SOUND 0,0,0,0: IF P2<6 THEN 699 

Bonus-ship routine. Award a bonus ship 
if all six people are rescued. 

693 POSITION 10,16:? " t» BONUS SHIP! 
m n ;:SL=SL+l:FOR P2=l TO 4: FOR AZ=80 
TO 185 STEP 6 

696 SOUND 0,AZ,10,10:S0UND 0,AZ+50,10, 
10:NEXT AZiNEXT P2 

699 FOR H=ll TO 111 STEP 5:F0R AZ=H TO 
N-7 STEP -hSOUND 0,AZ,10,10:NEXT AZ: 
NEXT B:S0UND 0,0,0,0:60TO 20 

Alter the character set. First transfer the. 
old character set (beginning at ROM 
address 57344) to RAM, beginning 8 
pages (2048 bytes) from the top of 
memory. Then poke the new characters 
from DATA statements into the new 
character set In RAM. This alters the 
lower-case characters "a" to "i." 

1000 R=PEEK(106)-8:RH=R!256 
1010 C=0:F0R 1=0 TO 1023 STEP 30:C=C+1 
:IF C=3 THEN C=0 

1020 SETC0L0R C,1,8:F0R J=I TO I+30:P0 
KE RH+J,PEEK(57344+JhNEXT J:SETC0L0R 
C,0,0:NEXT I:SETC0L0R 0,1,8 
1030 FOR 1=0 TO 8:F0R J=0 TO 7:READ A: 
POKE RN+(97+I>t8+J,A:NEXT JsNEXT I:RET 
URN 

1040 REM DATA FOR NEM CHARACTERS, IN 
GROUPS OF 8 

1050 DATA 0,0,12,12,12,15,15,12,24,24, 
24,60,255,255,255,0,0,0,48,48,48,240,2 
40,48 
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1060 DATA 255,255,126,126,60,60,24,24, 

219,126,60,24,24,60,102,195,24,24,255, 

24,24,60,102,195 

1070 DATA 24,24,60,126,219,60,102,195, 

48,48,4B,112,240,240,240,0,12,12,12,14 

,15,15,15,0 

1100 GRAPHICS 3+16.-F0R 1=0 TO 2:SETCDL 

OR I,0,0:NEXT I 

1105 C=0:FOR 1=0 TO 39:C=C+1:IF C=4 TH 

EN C-l 

Draw the opening display on the screen. 



1110 COLOR C:PL0T I,0sPL0T 39-1, 21 J HEX 

T I 

1120 C=0:F0R 1=0 TO 21:C=C+1:IF C=4 TH 

EN C=l 

1130 COLOR CsPLOT 39,I:PL0T 0,21-IsNEX 

T I 

1140 COLOR hPLOT 9,4:DRAHTO 5,4:DRAHT 



5,6:DRAHT0 9,6:DRANT0 9,9:DRAHT0 5,9 

:PL0T 11, 9: DRAHTO 11, 4: DRAHTO 15,4 

1142 DRAHTO 15,7:DRAHT0 11,7:PL0T 17,9 

:DRAWT0 17,4:DRAHT0 21,4:DRAHT0 21,9:P 

LOT 17,6:DRAHT0 21,6:PLQT 27,4 

1144 DRAHTO 23,4:DRAHTQ 23,9:DRAHT0 27 

,9:PL0T 33,4:DRAHT0 29,4:DRAHT0 29,9:D 

RAHTO 33, 9: PLOT 29, 6: DRAHTO 33,6 

1150 PLOT 2, 17: DRAHTO 2, 12: DRAHTO 6,12 

:DRAHT0 6,15:DRAHT0 2,15:PL0T 5,16»PL0 

T 6, 17: PLOT 12, 12: DRAHTO 8,12 

1152 DRAHTO 8,17:DRAHT0 12,17:PL0T 8,1 

4:DRAHT0 12,14:PL0T 18,12:DRAHT0 14,12 

:DRAHT0 14,14:DRAHT0 18,14 

1154 DRAHTO 18,17:DRAHT0 14,17:PL0T 24 

,12:DRAHT0 20,12:DRAHT0 20,17:DRAHT0 2 

4,17:PL0T 26,12:DRAHTD 26,17 

1156 DRAHTO 30,17:DRAHT0 30,12:PL0T 36 

,12:DRAHT0 32,12:DRAHT0 32,17:DRAHT0 3 

6,17:PL0T 32,14:DRAHT0 36,14 

1160 RETURN 
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Maze Search is an arcade-style game 
for an Atari with a joystick in slot 1 
and 8K RAM. 

Has your mind been uncontrollably 
wandering lately? Then try putting it 
back in line with a game that demands 
intense concentration. In Maze Search, 
you not only need to control your mov- 
ing cursor to intercept the 24 targets, 
but you must also diligently plan ahead 
to be able to negotiate the maze. Only 
the very best players will capture all of 
the targets. 

Each game begins with your Atari 
generating a random maze. Every sec- 
tion within the maze has only one en- 
trance/exit to the outside corridor — 
which is your access to the other sec- 
tions of the maze. After the maze is 



MAZE 
SEARCH 

by Dave Boblke 

completed, 24 blue targets will be plac- 
ed at random in the maze. The object 
of Maze Search is to move your green 
cursor and run over the blue targets. 
Several players can compete in turn to 
determine who can intercept the most 
targets. 

There is a time limit to each game, 
which limit you can adjust by changing 
the value of variable CT in line 600. 
The time remaining in the game is in- 
dicated by a green bar at the right side 
of the screen. To use your time most 
efficiently, keep your cursor moving! 

Each time you intercept a target, it 
will be displayed along the left side of 
the screen. When the game is over, 
press the fire button on your joystick 
for another game. 



SS SS S3 ss ss ss ss ss ss ss ss 



ss 

S3 

ss 
ss 
ss 



Atari BASIC 
'Haze Search' 
Author: Dave Bohlke 
Copyright !c) 1982 
S3 SoftSide Publications, Inc SS 
SS SS 

SS SS SS SS SS SS SS SS SS SS SS 



SS 
SS 
SS 
SS 
SS 



1 GOTO 100 



Direction changes for the STICK(0) 
commands. See p. 60 of the Reference 
Manual. 

5 GOTO 7 

6 GOTO 14 

7 X-X+li RETURN 

9 GOTO 13 

10 GOTO 11 

11 X=Mi RETURN 

13 Y=Y+1:RETURN 

14 Y=Y-1: RETURN 
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Full-screen, mode 3 graphics. 
100 6RAPHICS 3*16 
Outline of maze. 

120 COLOR IsPLOT 4,0:DRAHT0 36,0sDRANT 
36,22:DRAHTQ 4,22:DRAHTQ 4,0 

Arrays M and N hold the locations of all 
the Intersections in the maze. 

200 DIH H (200), N 1200) 

K is the intersection counter. M and N 

CLIO lilo ovi ooi i luuaiivii ui iiio 

Intersection. 

210 K=0:H=18:N=10 

Plot the initial Intersection. 

220 PLOT N,N 

Lines 240-390: Loop for maze 
construction. 

Test whether next intesection is filled in. 

240 LOCATE M«,N,XjIF X=0 THEN 250 
242 LOCATE H-2,H,XiIF X=0 THEN 250 
244 LOCATE N,N+2,X:IF X=0 THEN 250 
246 LOCATE H,N-2,X:IF X=0 THEN 250 

Next intersection is used, so jump to 
line 370 to get the previous intersection 
location, and decrement the counter. 
K = means we're done. 

248 GOTO 370 

When there Is at least one open 
adjacent intersection, pick a random 
direction, D. 

250 D=INT(RND(0)t4)+251:60T0 D 

Offsets for particular directions (M1 and 
N1). 

251 Hl=-l:Nl=0sSDTO 300 

252 H1=0:N1-1:60T0 300 



253 Nl=l:Nl-0iBQT0 300 

254 Hl=0sNl=-l 

See whether the intersection at the 
random location is open; jump to line 
250 if not. 

300 LOCATE H+Hl*2,N+Nit2,XiIF X=l THEN 
250 

Plot to the open intersection. 

310 PLOT N+r11,N+Ni:PL0? H+H1I2,N+Ntt2 
Sound and random color. 

320 SOUND 0,H+N,10 f 4iSETCQL0R 0,RND(0) 
*15,10sSETC0L0R 4,RND(0)tl5,8 

Adjust M and N to the new intersection. 
Increment K and M(K) and N(K) as the 
the intersection location. Branch to start 
the process again. 

330 H=H+H1*2:N=N+NU2!K=K+1:H(K)=H:N(K 
)=N:GOT0 240 

All directions are blocked, so back up to 
the previous intersection. 

370 N=N(K):N=N(K):K=K-1 

Check for maze completion. 

380 IF K=0 THEN 400 

Not finished, so branch to check 
previous intersection. 

390 GOTO 240 

Clear dimensions; they are no longer 
needed. 

400 CLR 

Player starting location. 



405 H=lliN=ll 
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Set colors. 

410 SETC0L0R 0,1,1Q:SETC0L0R 4,4,6 
420 SETC0L0R 2, 8, 8: COLOR 2: PLOT H,N 

Plot 24 target blocks. 

430 SETCOLQR 1,12,B:F0R 1=1 TO 24:60SU 
B 900:NEXT I 



Lines 500-700: Main game loop. 
Check stick; if not pressed, branch to 
line 600. 



500S=STICK(0):IF S=15 THEM 600 



Save position (M, N) in scratch variables 
X and Y. GOSUB S will be 5 to 14 for 
direction offset. 



510 X=H:Y=M:60SUB S 



Blank player's block. Locate new 
position (X, Y). 



520 COLOR 0:PLOT N,Ns LOCATE X f Y,Z 



If no move is possible (wall), then branch 
to line 580. 



540 IF Z=l THEN 580 



If player hits a target block, then 
increment counter HT, and check for end 
of game. 



550 IF Z=3 THEN HT=HT+1:F0R 1=1 TO 20: 
SOUND 0,1+50, 12, 15:NEXT IMF HT=24 THE 
N 800 

Up until first hit, branch to line 560. 

551 IF HT=0 THEN 560 



Plot hits left of maze. 



552 COLOR 3: IF HT/2=INT<HT/2) THEN PL0 

T 1,23-HT 

554 IF HT/20INTIHT/2) THEN PLOT 2,23- 

HT 



Set M and N to new location X and Y. 



560 H=X:N=Y 



Plot player's block. 



580 COLOR 2: PLOT H,N 



Increment time; plot time block on the 
right of the screen; check for end of 
game. 



600 CT=CT+0. 02: COLOR 2:PL0T 38,22-CT:P 
LOT 39,22-CT:IF CT>21 THEN PLOT 38,0:P 
LOT 39,0:6QTQ 800 



A little sound, and branch to beginning 
of game loop. 



700 SOUND 0,2»H+2tN,10,4:60T0 500 



Game is over. Check for the fire button 
to start the next game. 



800 IF STRIG(0)=0 THEN RUN 
810 SOUND 0,RND(0)*100,10,4:60TQ 800 
900 COLOR 3:X=INT(RNDi0)tl6)t2+5:Y=INT 
(RND(0)*ll)*2+l:L0CftTE X,Y,Z 
904 IF ZOO THEN 900 
906 PLOT X,Y:RETURN 
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Minfeolf 

hv Mitch Vnth • ^ 



by Mitch Voth 

Atari version by Rich Bouchard 




Minigolf is an arcade/simulation game 
for an Atari with 16K RAM. 



Do you remember the golden days of 
youthful summers, when you and some 
friends would go to the miniature golf 
course? Do those days seem too far in 
the past? Here is a program that will let 
you recapture a bit of those days, 
without leaving the keyboard of your 
Atari. Minigolf is a graphic represen- 
tation of a nine-hole miniature golf 
course with banked walls and even 
some sound. For more fun, the pro- 
gram accomodates up to ten players, 
although you can play alone if you so 
desire. In Minigolf, you control the 
angle of your putter by pressing the left 
and right arrows on the keyboard. 
Then, when you feel that the angle is 



correct, press a number from one to 
nine, indicating how hard you wish to 
strike the ball. One is a light tap, and 
nine is a hard hit. The player with the 
lowest number of strokes after nine 
holes. 

Variables 

A: General work variable. 
Bl, B2, CI, C2, Dl, D2: Used in 
moving the ball. 
HH: How hard the ball is hit. 
HM: Horizontal movement. 
Ml, M2: Movement indicators. 
NP: Number of players. 
P: Par for each hole. 
PT: Player's turn number. 
S(i): Score for each player. 
S: Number of strokes per hole. 
VM: Vertical movement. 
Z$(i): Player names. 



SS SS SS SS SS SS SS SS SS SS SS 
SS SS 

SS Atari BASIC SS 

SS 'Hinigolf SS 

SS Author: Hitch Voth SS 
SS Translator: Rich Bouchard SS 
SS Copyright ic) 1982 SS 
SS So-ftSide Publications, Inc SS 
SS SS 

SS SS SS SS SS SS SS SS SS SS SS 

8 OPEN 11,4,0, 'K:" 



9 DIM Zt(100),At(30),S<10) 

10 GRAPHICS 0: PRINT " 
9-HDLE -iPRINT " 

GOLF" 



ATARI 
MINIATURE 



20 FOR A=l TO 100:Z$(A)=" ":NEXT A 
25 FOR A=l TO 10:SCA)=0:NEXT A 

30 PRINT :PRINT sPRINT "NUMBER OF PLAY 
ERS";: INPUT NP:IF NPM0 THEN 10 

32 FOR A=l TO NP:S(NP)=0; PRINT "PLAYER 
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#";Aj: INPUT fit: IF LEN(A*)>10 THEN A*= 
At(l,10) 

33 IF LEN(At)=0 THEN A*=" " 

34 Z* (A* 10-LEN (A*) +1 , At 10>«A$> NEXT A:6 

RAPHICS 5: POKE 752,1 
38 SETCQLQR 0,0, OsSETCOLOR 4,3,10:80T0 
300 
40 6RAPHICS OsPOKE 752,1:PRINT " 

SCORE: "; PRINT :FOR A=l TO NP:PRINT Z 
$<A»10-9,Atl0),S(A):NEXT A 
42 PRINT ;PRINT "HIT ANY KEVsfiET il,A 
:6RAPHICS 5:P0KE 752, isSETCOLOR 0,0,0: 
SETCOLOR 4,3,10:RETURN 
50 GET #I,Z:IF Z<58 AND Z>48 THEN HH=( 
Z-48)UisHH=0:V«=0sC0L0R A:PLOT C1,C2: 
6DT0 200 

60 T=0:IF Z<>43 THEN 70 
62 CP=CP+1:IF CP=17 THEN CP=1 
64 COLOR A:PLOT C1,C2:G0T0 100 
70 IF Z<>42 THEN 50 
72 CP=CP-1:IF CP=0 THEN CP=16 
74 COLOR A:PLOT C1,C2:60T0 100 
90 COLOR hPLQT HP1,HP2:PL0T HP1+1,HP2 
92 COLOR 3:PL0T B1,B2:L0CATE C1,C2,A:I 
F A<>2 THEN COLOR 2:PL0T C1,C2:G0T0 50 
94 COLOR 3: PLOT CI, C2: GOTO 50 

100 60T0 CP+100 

101 C1=B1:C2=82+2:M1=0:H2=-1:60T0 90 

102 C1=B1+1:M=-1:G0TQ 90 

103 C1=B1+2:C2=B2+2:H1=-2:G0T0 90 

104 C2=B2+1:H2=-0,5:G0TQ 90 

105 C2=B2:H2=0:GOTO 90 

106 C2=B2-1:H2=0.5:G0T0 90 

107 C1=B1+2:C2=B2-2:H1=-2:H2=1:G0T0 90 

108 C1=B1+1:H1=-1:60T0 90 

109 C1=B1:H1=0:60TO 90 

110 C1=B1-1:H1=1:G0T0 90 

HI C1=B1-2:C2=B2-2:M1=2:H2=1:60TO 90 

112 C2=B2-l:H2=0.5:GOT0 90 

113 C2=B2:N2=0:G0TO 90 

114 C2=B2+1:H2=-0.5:6QT0 90 

115 C1=B1-2:C2=B2+2:H1=2:H2=-1:G0T0 90 

116 C1=B1-1:H1=1:G0T0 90 

150 COLOR 3:PL0T HP1,HP2:PL0T HP1+1,HP 
2: IF S>1 THEN 156 



152 PRINT "A HOLE IN ONE! ! ! ! ! !"iFOR A= 
1 TO 5:F0R B=l TO 59:SETC0L0R 4,B/4+l, 
14:S0UND 0,B,0,10:NEXT BsNEXT A 
154 SETCOLOR 4,3,10:S0UND 0,0,0,0:G0T0 
158 

156 PRINT "THAT TOOK YOU °}S;" STROKES 
":FOR A=l TO 50:S0UND 0,A,10,10:NEXT A 
:FOR A=49 TO 2 STEP -1 

157 SOUND 0,A,10,10:NEXT A:SQUND 0,0,0 
,0 

158 FOR A=l TO 700:NEXT AsPRINT CHRt<2 
8);" 

B :PRINT CHR$(2B);CHR*(2B);:RETURN 
200 D1=B1:D2=B2:CDLQR 2:PL0T B1,B2:IF 
(ABS(M)=1 AND HH=1) OR ABS(H1)=2 THEN 
204 
202 HH=1:60T0 210 

204 D1=B1+SGN(H1):HN=0 

205 T=T+1:IF T>4 THEN RC=2:RETURN 

210 SOUND 0,200, 10, 10: SOUND 0,0,0,0:L0 
GATE D1,B2,A:IF A=0 THEN RC=0:RETURN 

211 IF (DIOHPl AND DIOHPltl) OR D2<> 
HP2 THEN IF A=l THEN RC=0:RETURN 

212 COLOR 3:PL0T D1,B2;B1=D1:L0CATE HP 
1,HP2,A:IF AOl THEN S(PT)=S(PT)+S-P:R 
C=1:G0SUB 150:RETURN 

214 LOCATE HP1+1,HP2,'A:IF AOl THEN S( 
PT)=S(PT)+S-P:RC=1:G0SUB 150:RETURN 
220 COLOR 2:PL0T B1,B2:IF (ABS(H2)=0.5 
AND VN=1) OR ABS<«2!=1 THEN D2=B2+S6N 
(H2):VH=0:G0T0 230 
222 VH=1 

230 LOCATE B1,D2,A;IF A=0 THEN RC=0:RE 
TURN 

231 IF (DIOHPl AND DlOHPl+1) OR D2<> 
HP2 THEN IF A=l THEN RC=0:RETURN 

232 COLOR 3sPL0T B1,D2:B2=D2:L0CATE HP 
1,HP2,A:IF A=3 THEN S<PT)=S(PT)+S-P:RC 
=i:GOSUB 150:RETURN 

234 LOCATE HP1+1,HP2,A:IF A=3 THEN S(P 
T)=S(PT)+S-P:RC=hGOSUB 150:RETURN 
240 T=0:HH=HH-1:IF HH<0 THEN RC=2:RETU 
RN 

242 GOTO 200 

300 COLOR 2:F0R A=3 TO 36:PL0T 27,A:DR 
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ANTO 45,A:NEXT AsPRINT B HOLE t 1 P 

AR 2 ' 

302 P=2:F0R PT=1 TQ NPiS=l:PRINT Z*(PT 

»10-9,PT*10)i"'S TURN":B1=INT(RND<0)*1 

1+32);B2=31:CP=1 

304 HP1=35:HP2=6 

305 BOSUB 100 

310 IF RC=2 THEN S=S+1:CP=1: GOSUB 100s 

60T0 310 

320 IF RC=1 THEN NEXT PTsGOTO 400 

325 BOSUB 3000 

330 IF DI=26 OR Dl=46 THEN H1=-H1:B0SU 

B 200:60T0 310 

400 BOSUB 40: COLOR 2: FOR A=13 TO 36: PL 
OT 27,A:DRAHT0 45,A:NEXT A:F0R A=0 TO 
1UPL0T 27+A,13-A:DRAHTQ 70,13-A 
402 NEXT AsPRINT " HOLE » 2 PAR 2 'i 
FOR PT=1 TO NP;S=1:PRINT Zt(PTtl0-9.PT 
*10)j"'S TURN" 

404 HPl=60:HP2=8:Bl=INT<RND!0)tll+32h 
B2=31 

405 CP=1:G0SUB 100 

420 IF RC=2 THEN S=S+1:CP=1:GQSUB 100: 

GOTO 420 

430 IF RC=1 THEN NEXT PT:G0T0 500 

435 BOSUB 3000 

440 IF 02=1 OR D2=37 OR <D2=14 AND Dl> 

45) THEN H2=-H2:60SUB 200: GOTO 420 

442 IF DK27 OR Dl=46 OR Dl=71 THEN HI 

=-M: BOSUB 200:BOTO 420 

444 A=N1:H1=-H2*2:H2=-A/2:60SUB 200:B0 

TO 420 

500 GOSUB 40:C0L0R 2:F0R A=13 TO 36:PL 

OT 17,A:DRAHTQ 55,A:NEXT A:FOR A=0 TO 

11:PL0T 17+A,13-A:DRAHT0 55-A,13-A 

502 NEXT AsCOLOR hPLOT 36,10:DRAWTQ 3 
6,36 

510 PRINT " HOLE I 3 PAR 2 ": FOR PT= 
1 TO NP:PRINT Z$(PTtl0-9,PT»10)j"'S TU 
RN":Bl=INT(RND(0)tll+42) 
512 S=1:B2=32:CP=1:HP1=25:HP2=32:B0SUB 
100 

520 IF RC=2 THEN S=S+1:CP=1:60BUB 100: 
BOTO 520 



530 IF RC=1 THEN NEXT PTsGOTO 600 

540 BOSUB 3000 

550 IF D2=l OR D2=37 THEN H2=-M2:60SUB 

200:60TO 520 
552 IF Dl=16 OR Dl=36 OR Dl=56 THEN HI 
=-Hl: BOSUB 200:60TO 520 
554 IF DK36 THEN A=H1:H1=-H2»2:H2=-A/ 
2:GQSUB 200:60T0 520 
556 A=Hl:Hl=H2t2:H2=A/2:60SUB 200:B0T0 

520 
600 BOSUB 40:C0L0R 2:F0R A=13 TO 24:PL 
OT 21,A:DRAHT0 63,A:NEXT A:FOR A=25 TO 

36: PLOT 21,A:DRAWT0 35, A: NEXT A 
602 FOR A=l TO 8:PL0T 36+A.24tA;BRAHT0 

63-A,24+A:PL0T 21+A,13-A:DRAHT0 63-A, 
13-A:NEXT A 

604 COLOR 1:PL0T 36,25:DRA«T0 36,14:BR 
AHTO 51,14:PL0T 51,14:DRAHT0 51,24 

610 P=3:PRINT " HOLE « 4 PAR 3'sFQR 
PT=1 TO NP:PRINT Z$(PTtlO-9,PT*10);"' 

S TURN o :Bl=INT(RND(0)t8}+20 

615 S=1:B2=32:CP=1:HP1=43:HP2=19:60SUB 
100 

620 IF RC=2 THEN S=S+1:CP=1: BOSUB 100: 

GOTO 620 

630 IF RC=1 THEN NEXT PTsGOTO 700 

640 BOSUB 3000 

650 IF D2=4 OR D2=12 OR D2*37 OR (D2=3 

3 AND Dl>44 AND DK55) OR (D2=14 AND D 
1>36) THEN 654 

652 BOTO 656 

654 H2=-H2: BOSUB 200: BOTO 620 

656 IF Dl=20 OR Dl=49 OR Dl=51 OR Dl=6 

4 OR Dl=36 THEN H1H11: GOSUB 200: BOTO 
620 

658 IF (Dl>56 AND D2<13) OR (D2>24 AND 
DK57) THEN A=Hl:Hl=H2t2:H2=A/2:60SUB 
200: GOTO 620 

659 A=Hl:Hl=-N2»2:H2=-A/2 

660 GOSUB 200: GOTO 620 

700 GOSUB 40: COLOR 2: FOR A=25 TO 36: PL 
OT 41,A:DRAWT0 55,A:NEXT A:FOR A=l TO 
9:PL0T 33-A,25-A:DRANT0 55,25-A 
702 PLOT 24+A,ll-A:DRAHT0 55-A,U-A:NE 
XT A:FQR A=l TO 5:PL0T 24,16-A:DRAHT0 
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55,16-A:NEXT A 

704 COLOR 1:F0R A=l TO 2sPL0T 55,25-A: 

DRAHTO 45,15-A:NEXT A 

710 PRINT " HOLE # 5 PAR 2 ":P=2:F0R 

PT=i TO NP:S=1:PRINT Z$<PT»10-9,PTtlO 
);"'S TURN":CP=1 

715 81=INT(RND(0)*8)+43:B2=33:HP1=33:H 
P2=13:GQSUB 100 

720 IF RC=2 THEN S=S+1:CP=1: GOSUB 100: 
BOTO 720 

730 IF RC=1 THEN NEXT PT:BOTO 800 
740 GQSUB 3000 

750 IF D2=l OR 02=37 OR (D2=25 AND UK 
41) THEN H2=-H2:GQSUB 200:60T0 720 
752 IF 01=23 OR Dl=40 OR Dl=56 THEN HI 
=-Hl:60SUB 200:G0T0 720 
754 IF DK40 AND D2<11 THEN A=H1:H1=-H 
212: H2=-A/2: GOSUB 200: GOTO 720 
756 A=Nl:Hl=H2t2:H2=A/2:6QSUB 200-.60TQ 

720 

800 GOSUB 40:C0L0R 2:FDR A=25 TO 36:PL 
OT 31,A:DRAHT0 45,A:NEXT A:FOR A=l TO 
lhPLOT 31, 25-A: DRAHTO 51+A,25-A 

801 NEXT A 

802 FOR A=2 TO 13:PL0T 31,A:DRAHT0 62, 
A: NEXT As COLOR 1:F0R A=l TO 2: PLOT 30+ 
A,24:DRAHT0 39+A,15:NEXT A 

804 PLOT 41,15:DRAHTQ 41,10;PL0T 49,10 

: DRAHTO 49,4 

810 PRINT " HOLE » 6 PAR 3 ":P=3:FQR 

PT=1 TO NP:S=1:PRINT Z$<PTtlO-9,PTtlO 
);"'S TURN" 

815 B1=INT(RND(0)»8)+34:B2=33:HP1=35:H 
P2=13:CP=1:60SUB 100 
820 IF RC=2 THEN S=S+1:CP=1:60SUB 100s 
GOTO 820 

830 IF RC=1 THEN NEXT PTsBOTQ 900 
840 GOSUB 3000 
850 IF D2=5 OR D2=l OR D2=37 OR (D2=25 

AND Dl>45) OR <(D2=10) AND (Dl=41 OR 
Dl=49)) THEN H2=-H2;G0SUB 200:G0T0 820 
852 IF Dl=30 OR Dl=46 OR Dl=63 OR Dl=4 
9 OR (Dl=41 AND D2<=16) THEN M=-H1:60 
SUB 200: GOTO 820 
854 A=M1:N1=-H2»2:H2=-A/2:60SUB 200:60 



TO 820 

900 GOSUB 40:C0L0R 2:F0R A=l TO 9:PLQT 
25-A,37-A:DRAHT0 54,37-AiPLOT 15+A, 17 

-A-.DRAHTO 51-A,17-A:NEXT A 

902 FOR A=2t TO 27:PL0T 16,A:DRAHT0 54 

,A:NEXT A:FOR A=l TO 4sPL0T 16,16+A:DR 

AUTO 50+A,16+A:NEXT A 

904 COLOR 1:PL0T 38,li:DRAHT0 50,23:PL 

OT 38,16:DRAHT0 45,23:PL0T 26,27:DRA«T 
38,27 

906 PLOT 39, 27: DRAHTO 39,36 
910 PRINT ' HOLE » 7 PAR 3":P-=3:F0R 
PT=1 TO NP:S=1:PRINT Z$(PT»10-9,PTtl0 
);"'S TURN 8 

915 Bl=INT<RND(0)i8)+44:B2=33:HPl=33sH 
P2=32:CP=1:G0SUB 100 
920 IF RC=2 THEN S=S+1:CP=1: GOSUB 100: 
GOTO 920 

930 IF RC=1 THEN NEXT PT-.GOTO 1000 
940 GOSUB 3000 

950 IF Dl=15 OR Dl=55 OR (Dl=39 AND D2 
>26) THEN H1=-H1:G0SUB 200:60T0 920 
952 IF D2=37 OR D2=7 OR D2=27 THEN N2= 
-H2: GOSUB 200: GOTO 920 
954 IF DK25 AND D2<17 THEN A=Hl:t11=-H 
2»2:H2=-A/2: GQSUB 200:G0T0 920 
956 A=Hl:Nl=H2*2:M2=A/2: GOSUB 200: GOTO 
920 

1000 GOSUB 40:C0L0R 2:F0R A=27 TO 36:P 
LOT 29,A:DRA«T0 43,A:NEXT A:FOR A=l TO 
8: PLOT 29-A,27-A: DRAHTO 43+A,27-A 
1002 PLOT 21,19-A:DRAHT0 52,19-A:PL0T 
21+A,11-A:DRAHT0 52-A,ll-A:NEXT A 
1004 COLOR 1:PL0T 30,11:DRAHT0 33,14:D 
RAHTO 33,21:DRAHT0 36,24:PL0T 37,24:DR 
AHTO 40,21:DRAHT0 40,14:DRAHT0 43,11 
1010 PRINT " HOLE » 8 PAR 5 ":P=3iF0 
R PT=1 TO NP:S=1:PRINT Z$(PTI10-9,PT*1 
0) 

1015 B1=INT(RND(0) 18+32) :B2=33:HP1=36: 
HP2=17:CP=1:G0SUB 100 
1020 IF RC=2 THEN S=S+1:CP=1: GOSUB 100 
:60T0 1020 

1030 IF RC=1 THEN NEXT PT:G0TO 1100 
1040 GOSUB 3000 
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1050 IF D2=37 OR D2=2 THEN N2=-H2:6QSU 
B 200:60T0 1020 

1051 IF Dl=33 OR Dl=40 THEN IF D2=21 
R D2=14 THEN 1054 

1052 IF Dl=20 OR Dl=53 OR Dl=33 OR Dl= 
40 OR Dl=28 OR Dl=44 THEN H1=-H1:60SUB 

200: GOTO 1020 

1054 IF (Dl>43 AND D2>18) OR (DK30 AN 
D D2<11) OR (Dl>36 AND DK44) THEN A=H 
lsMl=-«2*2:M2=-A/2:B0BUB 200sGOTO 1020 
1056 A=H1:H1=N2*2:N2=A/2:G0SUB 200 
1060 GOTO 1020 

1100 60SUB 40:C0L0R 2:F0R A=27 TO 36:P 
LOT 29,A:DRAWT0 43, A: NEXT As FOR A=3 TO 

27:PL0T 20,A:DRAHTQ 52,A:NEH A 
1102 COLOR 1:PL0T 34,10:DRAHTQ 31,13:P 
LOT 39,10:DRAHT0 42,13;PL0T 27,14:DRAH 
TO 35,22:PL0T 38,22:DRA«TQ 46,14 
1110 PRINT " HOLE t 9 PAR 4»;P*4;FQ 
R PT=1 TO NP:S=1:PRINT Z$(PTtl0-9,PT*l 
0);"'S TURN" 

1115 B1=INT<RND(0) 18+32) :B2=33:HP1=36: 
HP2=17:CP=1:60SUB 100 
1120 IF RC=2 THEN S=S+isCP=l:6DSUB 100 
:60T0 1120 

1130 IF RC=1 THEN NEXT PT:GOTO 2000 
1140 60SUB 3000 



1150 IF D2=37 OR D2=2 OR D2=28 THEN H2 

=-H2:GQSUB 200iG0T0 1120 

1152 IF Dl=19 OR Dl=53 OR <!D1=2S OR D 

1=44) AND D2>26) THEN M=-N1:60SUB 200 

:G0T0 1120 

1154 IF (Dl>37 AND D2M3) OR (DK36 AN 

D D2<14) THEN A=ftl : Hi=-H2»2s H2=-A/2: 60 

SUB 200: GOTO 1120 

1156 A=Hl:Nl=H2t2:H2=A/2:G0SUB 200 

1160 GOTO 1120 

2000 GRAPHICS 0: PRINT " FINAL SCORE 

i":PRINT :PRINT " PLAYER SCORE":PR 
f NT » » 

2005 FOR A=l TO NP:PRINT Zt(AM0-9,Ati 

0);" : "jS(A):NEXT A 

2010 PRINT : PRINT "PLAY AGAIN (Y/N)"; 

2020 8QSUB 3000:A=PEEK(764):IF A<>43 A 

ND A<>35 THEN 2020 

2030 IF A=43 THEN RUN 

2040 PRINT :PRINT :PRINT ' GOOD BYE. ':C 

LOSE II: END 

3000 SOUND 0,50,10,10 

3005 HH=HH-10:IF HH<2 AND HH>-6 THEN H 

H=2 

3010 SOUND 0,200,10,10 

3020 SOUND O,0,0,0:RETURN 

9999 END 
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by Michael Prescott 
Atari version by Alan J. Zett 



Flip-It is an Atari program requiring 
24KRAM. 

Flip-It is a computerized board 
game, in which you and the computer 
match wits trying to outflank and cap- 
ture one another's pieces on an eight- 
by-eight board. The computer is a for- 
midable opponent, and you won't find 
it a trivial matter to win. 

The game begins with a square ar- 
rangement of four chips in the center 
of the board, two belonging to you and 
two belonging to the computer. You 
are allowed to choose your color and 
who will play first. When it is your 
turn, your object is to pick an unoc- 
cupied square such that putting one of 
your chips there will "outflank" one 
or more of the computer's chips. This 
means that the computer's chips would 
be sandwiched in between one of your 
existing chips and the new one you're 
playing, in a straight line. (You might 
think of it as your chips being 
bookends at each end of a row of your 
opponent's pieces.) 

When you do this, all the computer's 
pieces which you have outflanked will 
become yours. This can happen in 
more than one direction, so that in any 
given turn you might capture pieces 
horizontally, vertically, and diagonal- 
ly. This can result in a substantial shift 
in the relative number of chips in one 
turn, and the outcome of the game is 
rarely certain until the last few moves. 



Use the joystick to move the cursor 
horizontally, vertically, or diagonally 
from its current location, and press the 
button to enter the move. The com- 
puter always checks to see that your 
move is legal, and allows no cheating. 

During your turn, you may ask the 
computer to recommend your best 
move by pressing "B." If you see no 
move that you can make, you must 
press "N"; the computer will then 
check to see if you really have no pos- 
sible move; if so, it will continue with 
its play. (Before pressing "B" or "N," 
you should move the cursor to an 
already occupied square.) If the com- 
puter has no move, it will pass after 
searching all the open squares. If 
neither of you has any possible move 
(which occasionally happens even 
before the board is filled), then the 
game is over and the player with the 
greater number of chips is the winner. 
You may also press "Q" to quit at any 
time. 

You will soon find that winning a 
game involves more than just capturing 
as many pieces as you can on any given 
turn. Much more important to the 
eventual results will be the position of 
your chips on the board. Capturing 
edge and (especially) corner squares, 
and preventing the computer from 
doing the same will pay off in the long 
run, even if it means outflanking only 
one square when you could get more 
elsewhere on the board. 
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Variables 

A(*): Decision-making array for com- 
puter's moves. 
A$: Data manipulator. 
B: Decision pointer. 
C: Capture pointer. 
CHIP: On-the-fly token. 
COLR: Sampler variable. 
COMMD: Key input variable 
D: Loop variable. 
IP: "I pass" flag. 
OC: Token for computer's chip. 
OPPONENT: Color of computer's 
chips. 



PI: Number of chips captured. 
P2: Number of chips on board. 
P4: Sum of chips captured. 
Q: Substitution variable. 
RESTART: Re-entry line number. 
SY: Number of your chips on board. 
X,Y,Z: Loop variables. 
XI, Yl: Point under consideration. 
X2.X3: Check loop variables. 
XX, YY: Plot variables. 
XXX: Capture loop variable. 
YC: Token for your chip. 
YOUR: Color of your chips. 
YP: "You pass" flag. 
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Initialization. 

100 GRAPHICS 0:DIH A<60),At(120):Z=l:G 

QSUB 6020: FOR X=l TO LEN<A$) STEP 2:PD 

L=0:B=0:FL=0 

110 A(Z)=ASC(At<X,X))-48+(ASC<At(X+l,X 

+l))-48)tl0:Z=Z+l:NEXT X:GQSUB 5000:0P 

EN #1,4,0, a K':PDL=0:B=0:F=0 

120 POKE 764,255:B=C=D:P2=4:SY=2 

Graphic Introduction. 

150 GRAPHICS SsSETCOLOR 2,0,0:SETC0L0R 

4,0,0 
160 FOR Y=0 TO 14 STEP 3:F0R D=0 TO 33 

STEP 0.2iS0UND 0,D,12,4!NE1!T D:S0UND 
0,0,0,4: IF (Y/2)=INT(¥/2) THEN 180 
170 COLOR 2:SETC0L0R i,Y,4:F0R X=12 TO 

39:PL0T X,0:DRABT0 X,38:PL0T 7B-X,0:D 
RAHT0 78-X,38:NEXT X:60T0 190 
180 COLOR 1-.SETC0L0R 0,Y,4:F0R X=0 TO 
19:PL0T 12,X:DRAHTQ 66,X:PL0T 12,38-X: 
DRAWTQ 66,38-X:NEXT X 



190 NEXT Y:S0UND 0,0,0,0:C0L0R 0:F0R X 
=1 TO 7: PLOT 7IX+11,0:DRAHT0 7*X+11,39 
:PL0T 12,5tX-l:DRAtiT0 67,5»X-1:NEXT X 

Get color choice, and clear portion of 
memory that keeps track of game 
progress. 

200 SETC0L0R 1,0, 10: PRINT CHR*(125); B W 
HICH COLOR (RED/ BLUE! ";:TRAP 200: INP 
UT A$:IF A$(1,1X)"R" THEN 210 
205 Y0UR=2:QPP0NENT=3:G0TQ 230 
210 YOUR=3:OPP0NENT=2 
230 XX=14:YY=2:C0LR=1 

Prompt for type of game set-up, and 
choose who goes first. 



240 PRINT CHR$( 125)? "KANT TO B0 FIRST" 
;:TRAP 240: INPUT A$ 
245 IF A$(1,1)="Y 8 THEN F=l 
250 PRINT CHR$U25)5"HANT TO SET UP Y0 
UR OWN SANE" ;: TRAP 250: INPUT A* 
255 IF A$(1,1)= B Y" THEN SETC0L0R 4,0,4 
:SETC0L0R 0,1, 2: GOTO 4000 
260 TRAP 33333: G0SUB 6000: GOTO 600 
300 ST=STICK(0) 
310 IF ST=15 THEN ST=0 
320 IF ST=14 AND PDL>7 THEN PDL=PDL-8 
330 IF ST=13 AND PDL<56 THEN PDL=PDL+8 
340 IF ST=11 AND PDDO THEN PDL=PDL-1 
350 IF ST=10 AND PDL>8 THEN PDL=PDL-9 
360 IF ST=9 AND PDL<56 THEN PDL=PDL+7 
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370 IF ST=7 AND PDL<63 THEN PDL=PDL+1 
380 IF ST=6 AND PDL>7 THEN PDL=PDL-7 
390 IF ST=5 AND PDL<55 THEN PDL=PDL*9 
400 RETURN 

Set up new game. 

600 COLOR 3:X=45:GOSUB 1 160: X=54:G0BUB 
1160:CQL0R 2:X=44:G0SUB 1160: X=55:6QS 

UB 1160 

610 POKE 764,255 

620 IF F=0 THEN 840 

End if board is filled, otherwise update 
the chip-selector cursor. 

630 IF P2=64 THEN 2010 
632 80SUB 7000 

Get command, or update the chip- 
selector cursor. 

640 IF PEEK(764)=255 THEN 800 

645 C0=PEEK(764):P0KE 764,255:IF C0O4 

7 AND C0O35 AND C0O21 THEN 800 

650 IF C0=47 THEN 2012 

652 IF C0=35 THEN 680 

654 G0SUB 700: GOTO 800 

No-possible-move command. 

680 G0SUB 700: IF YP=1 THEN 840 

682 SOUND 0,255, 12, 15:F0R X=l TO 150:N 

EXT XiSOUND 0,0,0,0:GOTO 800 

Find best move. 

700 FL= 1 : Q=¥0UR: Y0UR=0PPQNENTs OPPONENT 

=Q:G0SUB 2000: IF YP=1 THEN 710 

702 FOR XXX=1 TO 20: IF <XXX-INT(XXX/2) 

t2)=0 THEN COLOR 

704 IF (XXX-INT(XXX/2)*2)<>0 THEN COLO 

R 1 

706 IF (XXX-INT(XXX/5)»5)O0 THEN GOSU 

B 1160 

708 NEXT XXX 



710 Q=Y0UR: Y0UR=0PP0NENT: 0PP0NENT=Q: FL 

=0: RETURN 

800 GOSUB 300: IF A=PDL THEN BIO 

802 A=PDL:C0L0R C0LR:PL0T XX,YY:C0L0R 

0:XX=7*(A-INT(A/8)t8)+14:YY=INT(A/8)t5 

+2 

Position and display player's move. 

804 LOCATE XX,YY-1,CQLR:PL0T XX, YY 

810 IF STRIG(0)=1 THEN 640 

812 IF C0LRO1 THEN 640 

820 P3=SY:C0L0R YOUR :P4=0:D=0: FOR XXX= 

1 TO 8:X=(A-INT!A/8)*8)+l+101HINT(A/8) 

+1):P1=0:G0SUB 980+XXXJ20 

822 P4=P4+P1:IF P1O0 THEN D=D+1 

830 NEXT XXX: IF D=0 THEN 640 

832 SY=SY+P4-D+1:P2=P2+1 

Do computer's move. 

840 GOSUB 7000:60SUB 2000:FOR XXX=1 TO 
42:IF (XXX-INT(XXX/2)*2)=0 THEN COLOR 
0. 

842 IF (XXX-INT(XXX/2)»2)O0 THEN COLO 

R 1 

844 IF (XXX-INT<XXX/3)t3>=0 THEN BOSUB 
1160 

846 NEXT XXX:C0L0R OPPONENT 

900 P2=P2+ 1 : Q= YOUR : Y0UR=0PP0NENT : OPPON 

ENT=Q:P4=0:D=0:F0R XXX=1 TO 8iX=A(B):P 

1=0:80SUB 980+20IXXX 

905 IF P1O0 THEN D=D+1:P4=P4+P1 

910 NEXT XXX:SY=SY-P4+D 

920 Q=YOUR:Y0UR=OPPONENT:0PP0NENT=Q:L0 

GATE XX,YY-1,C0LR:G0T0 630 

Capture routine. 

1000 Xl=7t<X-INT(X/10mO)+7:Yl=INT(X/ 
10)«5-3:F0R X2=l TO 7:Y1=Y1-5:IF YKO 
THEN RETURN 

1005 LOCATE X1,Y1,Z:IF Z=Y0UR AND X2=l 
OR Z=l THEN RETURN 
1010 IF Z=0PP0NENT THEN NEXT X2 
1012 IF X2=8 THEN RETURN 
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1014 GOSUB 1160jP1=X2:F0R X3=l TO X2:X 
=X-10:6QSUB ll&OsNEXT X3:RETURN 

1020 Xl=7*(X-INT<X/10mOH7:Yl=INT(X/ 
10)*5-3:FDR 1(2=1 TO 7:Y1=Y1+5:IF Yl>38 
THEN RETURN 

1025 LOCATE X1,Y1,Z:IF Z=YOUR AND X2=l 
OR Z=l THEN RETURN 
1030 IF Z=OPPONENT THEN NEXT X2 
1032 IF X2=8 THEN RETURN 
1034 GOSUB 1160sPl=X2:F0R X3=l TO X2-.X 
=X+10:60SUB 1160:NEXT X3:RETURN 

1040 Xl=7t(X-INT(X/10)M0)+7!Yl=INT(X/ 
10)*5-3:F0R X2=l TO 7:X1=X1-7:IF XK12 

THEN RETURN 
1045 LOCATE X1,Y1,Z:IF Z=YOUR AND X2=l 

OR Z=l THEN RETURN 
1050 IF Z=0PPQNENT THEN NEXT X2 
1052 IF X2=8 THEN RETURN 
1054 GOSUB 1160:P1=X2:F0R X3=l TO X2:X 
=X-1: GOSUB 1160; NEXT X3: RETURN 
1060 Xl=7*(X-INT<X/lQ)tl0)+7:Yl=INT(X/ 
10)*5-3:F0R X2=l TO 7iXl=Xi+7:IF Xl>66 

THEN RETURN 
1065 LOCATE X1,Y1,Z:IF Z=YOUR AND X2=l 

OR Z=l THEN RETURN 
1070 IF Z=OPPONENT THEN NEXT X2 
1072 IF X2=8 THEN RETURN 
1074 GOSUB 1160:P1=X2:F0R X3=l TO X2:X 
=X+1:60SUB 1160:NEXT X3:RETURN 
1080 Xl=7t(X-INT(X/10)*10)+7:Yl=INT(X/ 
10)*5-3:F0R X2=l TO 7:Xl=Xl-7:Yl=Yl-5: 
IF XK12 OR YKO THEN RETURN 
1085 LOCATE X1,Y1,Z:IF Z=YOUR AND X2=l 

OR Z=l THEN RETURN 
1090 IF Z=OPPONENT THEN NEXT X2 
1092 IF X2=8 THEN RETURN 
1094 GOSUB 1160:P1=X2:F0R X3=l TO X2:X 
=X-11:G0SUB 1160:NEXT X3:RETURN 
1100 Xl=7»(X-INT(X/10!tl0)t7:Yl=INT(X/ 
10)*5-3:F0R X2=l TO 7:Xl=Xi+7:Yl=Yl-5: 
IF Xl>66 OR YKO THEN RETURN 
1105 LOCATE X1,Y1,Z:IF Z=YOUR AND X2=l 

OR Z=l THEN RETURN 
1110 IF Z=OPPONENT THEN NEXT X2 
1112 IF X2=8 THEN RETURN 



1114 60SUB 1160sPl=X2:F0R X3=l TO X2sX 

=X-9:G0SUB 1160:NEXT X3:RETURN 

1120 Xl=7l(X-INT(X/10)*10)+7sYl=INT«X/ 

10I*5-3:F0R X2=l TO 7:Xl=Xl+7:Yl=Yl+5: 

IF Xl>66 OR Yl>38 THEN RETURN 

1125 LOCATE X1,Y1,Z:IF Z=YQUR AND X2=l 

OR Z=l THEN RETURN 
1130 IF Z=OPPONENT THEN NEXT X2 
1132 IF X2=8 THEN RETURN 
1134 GOSUB 1160:Pl=X2sF0R X3=l TO X2:X 
=X+11: GOSUB 1160iNEXT X3: RETURN 
1140 Xl=7t!X-INTiX/10)tl0)+7:Yl=INT(X/ 
10)t5-3:F0R X2=l TO 7:X1=X1-7:Y1=Y1+5j 
IF XK12 OR Yl>38 THEN RETURN 
1145 LOCATE X1,Y1,Z:IF Z=YOUR AND X2=l 

OR Z=l THEN RETURN 
1150 IF Z=OPPONENT THEN NEXT X2 
1152 IF X2=8 THEN RETURN 
1154 GOSUB U60sPl=X2:F0R X3=! TO X2-.X 
=X+9:60SUB 1160: NEXT X3: RETURN 

Draw chip at selected location. 

1160 Xl=7*(X-INT<X/10)*10)+5zYl=INT(X/ 

10)»5-5:F0R X1=X1 TO X1+5:PL0T X1,Y1:D 

RAWTO X1,Y1+3:NEXT XI 

1165 FOR Z=l TO 6:P0KE 53279,0:NEXT Z: 

RETURN 



Step through the best moves for the 
computer. If none are found, then pass 
or concede game. 



2000 POKE 77,0: IF P2-SY=0 OR SY=0 THEN 
2010 

2001 IF FL=0 THEN IP=0 

2002 IF FL=1 THEN YP=0 

2003 FOR B=l TO 60:X=A(B):Xl=7»(X-INTi 
X/10)tl0)+7:Yl=INT<X/10)i5-3:P0KE 5327 
9,0:P0KE 53279,0: LOCATE X1,Y1,Z 

2004 IF Z=l THEN 60SUB 3000 

2005 NEXT B:IF P2-SYO0 AND SYOO AND 
FL=0 AND YP=0 THEN 2008 

2006 IF P2-SYO0 AND SYOO AND FL»1 AN 
D IP=0 THEN YP=1:RETURN 
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2007 GOTO 2010 

200B IP=1:F0R ST=170 TO 220:S0UND 0,ST 

,10,10:NEXT STsSOUND 0,0,0,0:GOTO 630 

2010 FOR X=0 TO 200:S0UND 0,X,12,6:NEX 

T X:SOUND 0,0,0,0:PRINT "NO POSSIBLE N 

OVES LEFT! N ;:FQR X=l TO 300: NEXT X 

2012 POKE 752, Is IF P2-SY>SY THEN 2030 

2014 IF P2-SY=SY THEN 2040 

2020 PRINT sPRINT "YOU HON THIS ROUND 

BY a ;2*SY-P2;" CHIPS. 8 ;: GOTO 2050 

2030 ? ?? "I ONCE A6AIN PROVE HY SUPER 

IORITY!";:FOR X=l TO 300:NEXT Xi? :? " 

I HON BY ";P2-2*SY;" CHIPS."; 

2032 BOTO 2050 

2040 ? :? "IT'S A DRAH! I'LL BEAT YOU 

NEXT TIME! ? " j 

2050 FOR X=l TO 20: POKE 53279, 0:NEXT X 

:FOR X=l TO 300:NEXT XsPRINT :PRINT "H 

ANT TO PLAY AGAIN?"; sPOKE 764,255 

2060 C0=PEEK(764):IF C0=255 THEN 2060 

2062 IF C0=43 THEN POKE 764, 255: RUN 

2064 POKE 764,255:? :? "OK. SEE YOU LA 

TER!":PRINT :END 

The computer has found an empty 
square; now check to see if it is a legal 
move. 

3000 FOR C=l TO 8:Xl=7t(X-INT(X/10)tl0 

)+6:Yl=INT(X/10)*5-3:P0KE 53279,0:P0KE 

53279, OsGOSUB 2990+20*C:NEXT C:RETURN 

Check legality of computer's moves (up- 
left, up-right, etc.). If it is a legal move, 
then jump out of loop, and do capture. 

3010 FOR D=l TO 7:Y1=Y1+5:IF Y1>3B THE 
N RETURN 

3012 LOCATE X1,Y1,Z:IF Z=l OR Z=0PP0NE 
NT AND D=l THEN RETURN 
3014 IF Z=Y0UR THEN NEXT D 
3020 IF D=8 THEN RETURN 
3022 POP :P0P :P0P :P0P :P0P sGOTO 515 


3030 FOR D=l TO 7:Y1=Y1-5:IF YKO THEN 
RETURN 



3032 LOCATE X1,Y1,Z:IF Z=l OR Z=0PP0NE 

NT AND D=l THEN RETURN 

3034 IF Z=Y0UR THEN NEXT D 

3040 IF D=B THEN RETURN 

3042 POP :P0P :P0P :P0P :P0P :80T0 515 



3050 FOR D=l TO 7:X1=X1-7:IF XK12 THE 

N RETURN 

3052 LOCATE X1,Y1,Z:IF Z=l OR Z=QPP0NE 

NT AND D=l THEN RETURN 

3054 IF Z=YQUR THEN NEXT D 

3060 IF D=8 THEN RETURN 

3062 POP :P0P :P0P :P0P :P0P :G0T0 515 



3070 FOR D=l TO 7:X1=X1+7:IF Xl>66 THE 

N RETURN 

3072 LOCATE X1,Y1,Z:IF Z=l OR Z=0PP0NE 

NT AND D=l THEN RETURN 

3074 IF Z=Y0UR THEN NEXT D 

3080 IF D=8 THEN RETURN 

30B2 POP ;P0P :P0P :P0P :POP :G0T0 515 



3090 FOR D=l TO 7:X1=X1+7:Y1=Y1+5:IF X 

1)66 OR Yl>38 THEN RETURN 

3092 LOCATE X1,Y1,Z:IF Z=l OR Z=0PP0NE 

NT AND D=l THEN RETURN 

3094 IF Z=Y0UR THEN NEXT D 

3100 IF D=B THEN RETURN 

3102 POP :POP :P0P :POP :POP :GOTO 515 



3110 FOR D=l TO 7:X1=X1-7:Y1=Y1+5:IF X 

K12 OR Y1>3B THEN RETURN 

3112 LOCATE X1,Y1,Z:IF Z=l OR Z=OPPONE 

NT AND D=l THEN RETURN 

3114 IF Z=YOUR THEN NEXT D 

3120 IF D=8 THEN RETURN 

3122 POP :POP :POP :POP iPOP :60T0 515 



3130 FOR D=l TO 7:X1=X1-7:Y1=Y1-5;IF X 
K12 OR YKO THEN RETURN 
3132 LOCATE X1,Y1,Z:IF Z=l OR Z=OPPONE 
NT AND D=l THEN RETURN 
3134 IF Z=YOUR THEN NEXT D 
3140 IF D=8 THEN RETURN 
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3142 POP :PDP '.POP -.POP -.POP iGDTO 515 



3150 FOR D=l TO 7:X1=X1+7:Y1=Y1-5:IF X 

1)66 OR YKO THEN RETURN 

3152 LOCATE X1,Y1,Z:IF Z=l OR Z=OPP0NE 

NT AND 0=1 THEN RETURN 

3154 IF Z=YOUR THEN NEXT D 

3160 IF D=B THEN RETURN 

3162 POP ;PQP :POP iPOP :POP :60TO 515 



Set up an old game. 

4000 TRAP 33333i? CHR*U25>;"H0H DO YO 

U WANT TO SET IT UP?":? "1 - REGULAR, 

2 - MANUAL": POKE 752,1:P2=0:SY=0 

4010 6ET #1,C0:IF C0<49 OR C0>50 THEN 

4010 

4020 POKE 764,255: IF C0=49 THEN 4250 

4050 PRINT CHR$(125); "PRESS <ESC> WHEN 

FINISHED":PRINT "USE BUTTON TO SELECT 

SQUARE":POKE 752,1 

4060 SOSUB 300:A=PDL:COLOR COLR:PLOT X 
X,YY:COLOR 0:XX=7*<A-INT (A/8) *8)+i5s YV 

=INT<A/8)t5+2 

4062 LOCATE XX,YY-1,CDLR:PL0T XX, YY 

4070 IF PEEK (764) =255 THEN 4080 

4072 C0=PEEK(764):P0KE 764,255: IF C0=2 

8 THEN 4160 

4080 IF STRIB(0)=1 THEN 4060 

4082 PRINT CHRt(125); 

4090 PRINT "WHICH COLOR (R/B) U -,:GET # 

1,ST:IF ST<>82 AND ST<>66 THEN 4082 

4092 X=(<A-INT(A/8)l8)+l)+U0*(INT(A/8 

)+D) 

4100 COLOR 3: IF ST=82 THEN COLOR 2 

4102 60SUB 4240:Y1=Y1+1:B=0:IF Xl>18 T 

HEN LOCATE X1-7,Y1,Z:B=B+(Z<>1) 

4110 IF XK60 THEN LOCATE X1+7,Y1,Z:B= 

B+<Z<>1) 

4112 IF Yl>4 THEN LOCATE X1,Y1-5,Z:B=B 

+ (Z<>1) 

4114 IF YK34 THEN LOCATE X1,Y1+5,Z:B= 

B+(Z<>1> 



4120 IF Xl>18 AND Yl>4 THEN LOCATE XI- 

7,Y1-5,Z:B=B+(Z<>1) 

4122 IF X1M8 AND YK34 THEN LOCATE XI 

-7,Y1+5,Z:B=B+(Z<>1) 

4130 IF XK60 AND Yl>4 THEN LOCATE X1+ 

7,Y1-5,Z:B=B+(Z<)1) 

4132 IF XK60 AND YK34 THEN LOCATE XI 

+7,Y1+5,Z:B=B+(Z<>1) 

4134 IF B=0 THEN 4150 

4140 60SUB 1160:P2=P2+1:L0CATE XX,YY-1 

,CQLR:GOTO 4050 

4150 IF P2=0 THEN 4140 

4152 GOSUB 4220:PRINT "YOU'RE MAKING U 

P THIS GAME! A PIECE COULDN'T BE THE 

RE!":FOR X=l TO 300:NEXT XsGQTO 4050 

4160 X=44:G0SUB 4240:Y1=Y1+1:L0CATE XI 

,Y1,Z:IF Z=l THEN 4230 

4162 X=45:G0SUB 4240:Y1=Y1+1:LOCATE XI 

.Yl.Z-.IF Z=l THEN 4230 

4170 X=54:6QSUB 4240:Y1=Y1+1:L0CATE XI 

,Y1,Z:IF Z=l THEN 4230 

4172 X=55s60SUB 4240:Y1=Y1+1:L0CATE XI 

,Y1,Z:IF Z=l THEN 4230 

4174 P2=0:F0R Y=l TO 8:F0R A=l TO 8 

4180 X=10tY+A: GOSUB 4240:Y1=Y1+1:X1=X1 

+1-.L0CATE X1,Y1,Z:IF Z=l THEN 4190 

4182 P2=P2+1:IF Z=Y0UR THEN SY=SY+1 

4190 NEXT AsNEXT Y:IF P2-SY=0 OR SY=0 

THEN 4200 

4192 IF P2=64 THEN 4210 

4194 LOCATE XX,YY-1,Z: COLOR Z.-GDSUB 60 

00: GOTO 610 

4200 GOSUB 4220:? CHR$(125);"Y0U HAVE 

TO GIVE ME A CHANCE! H :P2=0:SY=0:F0R X= 

1 TO 300-.NEXT X-.GOTO 4050 

4210 GOSUB 4220:? CHR*(125) ; "¥QU DION' 

T LEAVE ANY ROOM!":FOR X=l TO 300:NEXT 

X:GOTO 4050 
4220 PRINT CHRt(125)j:F0R X=l TO 200: P 
OKE 53279,0: NEXT X: RETURN 
4230 GOSUB 4220:? CHR*(125) ; "THE CENTR 
AL SQUARES MUST BE FILLED! ":FOR X=l TO 
300:NEXT X:GOTO 4050 
4240 Xl=7t(X-INT<X/10)tlO)+7:Yl=INT(X/ 
10) $5-3: RETURN 
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4250 GOSUB 6000:P2=4:SY=2:60TD 600 
Print instructions for game. 

5000 POSITION 2,12sPRINT "NEED INSTRUC 
TI0NS";:TRAP 5000s INPUT AisIF A*<1,1)< 
>"Y" THEN RETURN 

5010 BRAPHICS OsPOKE 752,1 POSITION 14 
,2:PRINT ' FLIP-IT " :PRINT :PRINT " 

THE OBJECT QF THIS GAME IS TO" 
5020 PRINT "COMPLETELY FILL THE BOARD 
WITH AS HANY PIECES OF YOUR COLOR 
AS YOU CAN." 

5030 PRINT "TO DO THIS YOU MUST OUTFLA 
NK YOUR OPPONENT'S PIECES AND FLIP 

THEN TO" 
5040 PRINT 
N OCCUR 
OR DIA6-" 
5050 PRINT "ONOLLY. THE BANE ENDS WHEN 

THE BOARD IS FULL OR WHEN BOTH PLAYE 
RS CAN'T HOVE, "i PRINT 
5060 PRINT "WHOEVER HAS THE MOST PIECE 
S WINS. ".-POSITION 5,23:PRINT "(PRESS A 
NY KEY TO CONTINUE)"; 
5065 IF PEEK (764) =255 THEN 5065 
5070 POKE 764,255:GRAPHICS 0:POKE 752, 
1: POSITION 2, 2: PRINT "YOU MAKE MOVES B 
Y MOVING THE CURSOR" 
5080 PRINT "WITH THE JOYSTICK TO THE S 
QUARE YOU DESIRE AND PRESS FIRE":PRI 
NT 

5090 PRINT "DURINB THE SAME YOUR CAN A 
LSO CHOOSE ONE OF THE OPTIONS BY PRES 



"YOUR COLOR. OUTFLANKING CA 
HORIZONTALLY, VERTICALLY, 



SING THE KEY INDICATED:": PRINT 
5100 PRINT "9 - TO QUIT THE 6AME":PRIN 
T :PRINT "N - NOT ABLE TO HOVE":PRINT 
sPRIKT "B - ASK FOR THE BEST MOVE" 
5110 POSITION 7,23:PRINT "(PRESS ANY K 
EY TO BE6IN)",' 

5130 IF PEEK(764)=255 THEN 5130 
5140 POKE 764,255 
5150 X=A(B): RETURN 

Color set-up routine. 

6000 TRAP 33333: GRAPHICS 5+4B:SETC0L0R 
1,5,4:SETC0L0R 2,7,4:SETC0L0R 4,12,4: 
SETCOLOR 0,0,0: RETURN 

Data to set up square-choice priority for 
computer. 

6020 A$="11811888316113831686386833633 
66641511484158548584353346435654656425 
224742575475732622373267637672171" 
6030 A*(LEN(A$)+1)="128217872878227227 
77": RETURN 

Chip-count update. 



7000 COLOR 0:PLOT 0,40:DRAHT0 79,40:PL 

OT 0,42:DRANT0 79,42 

7010 IF SY>0 THEN COLOR YOURsPLOT 12,4 

0:DRANTO SY+11,40 

7020 IF (P2-SY)>0 THEN COLOR OPPONENT: 

PLOT 12,42:DRAHT0 <P2-SY)+11,42 

7030 RETURN 
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Battlefield 








Battlefield is an Atari game reauiring 
16K RAM. 

"Battlefield" is a game of strategy for 
two players, in which the object is to 
overpower the opponent's forces and 
capture squares on the playing board. 
The players both start out with 40 
squares on an eight-by-ten board, and 
alternate moving forces around the 
board to do battle with one another. 

At the beginning of the first player's 
turn, new forces are added to each of 
the squares along the right and left 
edges of the board. The number of new 
forces that each player receives 
depends on how much territory he 
owns, how many edge squares he 
owns, and how crowded his edge 
squares are. No square may contain 
more than 99 forces. 

At the same time, each player's 
Movement Allowance (M.A.) is in- 
creased, by an amount proportional to 
the territory he owns. The M.A. limits 
the amount of movement on each turn. 
For example, moving five forces 
through two squares, and then three 
other forces through six squares, uses 
up 5-times-2 plus 3-times-6, or 28, 
movement points. A player's turn ends 
when he has exhausted his Movement 
Allowance or when he presses "E". 
Unused M.A. is carried over to the 
next turn. 

Forces are moved using the number 
keys and four directional keys. The 



by Joe Humphrey 
Atari version by Jon R. Voskuil 

board display will show a pair of "#" 
symbols bracketing one of the squares; 
these constitute the "cursor." The cur- 
sor can be moved up, left, right, or 
down by pressing I, J, K, or L (these 
keys form a diamond-shaped pattern 
for convenient right-hand use). To 
move forces, you position the cursor 
on a square occupied by your forces, 
type in the number of forces you want 
to move, and then use the directional 
keys to move them. To leave some 
forces in a given square, just type "0" 
or backspace to cancel the current 
number of forces being moved. 

You can move your forces freely, in 
any direction, through your own ter- 
ritory. Once a group of forces crosses 
into enemy territory, however, they 
cannot move further during that turn. 
When a square is thus occupied by 
forces from both sides, a pair of letters 
is shown in that square rather than a 
number of forces. These letters show 
the relative number of forces in that 
square: The pair "YB" would show 
very unequal force strengths, while the 
pair "MM" would show equal forces 
from both sides. At the end of each 
turn, battles are fought to the death in 
all such jointly-occupied squares, and 
the surviving forces of the winner then 
remain in the squares. 

These battles for individual squares 
are usually, but not always, won by the 
side with more forces in the square. 
Assume that the forces in a square are 
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15 of side A and 10 of side B. In the 
first round of the battle, there will be a 
10/(15 + 10), or 0.4, probability that 
one of A's forces will be destroyed; at 
the same time there will be a 
15/(15 + 10), or 0.6, probability that 
one of B's forces will be destroyed. At 
the end of the first round, then, the re- 
maining forces could be 15:10, 14:10, 
15:9, or 14:9. Assuming that the actual 
results are 15:9, the second round 
would be fought with new probabilities 
of 9/(15 + 9) and 15/(15 + 9), or 0.31 
and 0.69 respectively. Rounds continue 
in this fashion until one player's forces 
are completely destroyed in that 
square. 

If you should want to reduce the size 
of the "Battlefield" playing board, to 
shorten and simplify the game, it's 
easily done by changing line 70. NC is 
the number of columns and NR is 
the number of rows. 

Variables 

AR: Vertical tab location for Move- 
ment Allowance. 
B$: Black's square marker. 
BC$: Background character (CU$ or 
SP$). 

BELLS: Beeps the speaker. 
BL: Index to black player ( = 0). 
BS$: Backspace character, CHR$(8). 
CC: Cursor column. 
CHS: A character. 
CL$: Atari clear-screen character, 
CHR$(125). 

COL: A column on the board. 
CP: Controlling player in a square. 
CP(i,j): Controlling player in each 
square of array. 
CU$: Cursor character, "#". 
D: Sound distortion number. 
DC: Change in column CC (-1,0, + 1). 
DC(i): Change in column for each 
player. 

DF: Digit flag; = 1 if a digit was just 
typed. 

DR: Change in row CR. 
EC(i): End-of-line column for each 



player. 

F: Boolean "false" value ( = 0). 
FR: Vertical tab or PRINT® position 
for number of forces. 
HC: Half of NC. 
IPL: Index to a player. 
IV: Value for printing normal ( = 0) 
or inverse (= 128) character. 
LC(i): Label column for each player. 
LP: Timing-loop counter. 
MA(i): Movement allowance for each 
player. 

MC: Maximum column index 
( = NC-1). 

MF(i): Maximum number of incom- 
ing forces per square for each player. 
MG: Maximum value of NG allowed. 
MR: Maximum row index ( = NR-1). 
NB: Number of black forces in a 
square. 

NC: Number of columns on board. 
NF: Number of forces to add to a 
square. 

NG: Number of forces in a moving 
group. 

NR: Number of rows on board. 
NS(i): Number of squares owned by 
each player. 

NW: Number of white forces in a 
square. 

PC: Player's name column. 
PF: Previous value of DF. 
PL: Index to current player. 
PN$, PN1S, PN2$, PN$(i): Strings 
used for players' names. 
PR: Player's-name row. 
ROW: A row on the board. 
S: Flag for sound generation. 
SF: A square's number of forces. 
SF(i,j), SF(i,j,k): Square's forces in 
each square, for each player. 
SP$: Space character. 
SR: Vertical printing position for 
squares owned. 

T: Boolean "true" value (= 1). 
TF(i): Total forces for each player. 
V: Sound volume value. 
W$: White's square marker. 
WH: Index to white player (= 1). 
WP$: Winning player's name. 
X$: Temporary and utility string. 
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10 GOTO 70 

Subroutine to print a normal or inverse 
character. 

20 FOR 1=1 TO LEN(X*):PRINT CHR*(ASC(X 
t(I,I))+Iv)::NEXT IsRETURN 

Subroutine to print the contents of 
position (COL, ROW) to the screen. 

30 CP=CP(C0L,R0W):IV=0:IF <BC*=SP$ AND 
CP=WH) OR (BC*=CU$ AND PL=WH) THEN IV 

=128 

32 IF S THEN SOUND 0,RND(i)*20+20,D,V 

34 POSITION 4»C0L+6,RQW+2:X*=BC$:60SUB 
20:S0UND 0,0,0,0:POSITION 4*C0L+3,R0W 

+2:G0SUB 20 

36 NB=SF (COL, ROM) : NW=SF (C0L+NC, ROW) : SF 

=NB+NW:IF SF(CQL+(l-CP)*NC,ROW)=0 THEN 
40 

38 IV=0:X*=CHR$(NB/SF*25+65): GOSUB 20: 

IV=128:X$=CHR$(NW/SFt25+65):60SUB 20:6 

0T0 46 

40 IV=0:IF CP=WH THEN IV=128 

42 IF SFOO THEN X*=" ":X$(2)=STR$(SF) 

:60SUB 20: GOTO 46 

44 X*=STR$(SF):GOSUB 20 

46 I V=0: RETURN 

Main program control routine. 

70 NC=8:NR=10 

75 Did CL*(1):CL*=CHR*U25) 

78 POKE 752, 1 

80 GOSUB 1000 



90 60SUB 2000 
100 GOSUB 3000 
110 GOSUB 4000 
120 GOSUB 5000 
130 GOSUB 6000 
140 GOSUB 7000 
150 GOTO 8000 
160 PRINT CL$:END 

Print instructions. 

1000 PRINT CL«) "BATTLEFIELD ttttt 

BY JOE HUMPHREY " 

1010 PRINT : PRINT " (ATARI TRANSLATIO 

N BY JON VOSKUIL) ■ 

1030 PRINT 

1040 PRINT " TWO PLAYERS, BLACK AND 

WHITE, ARE ON A "jNC:" BY ":NR;» BOAR 
D. A SQUARE OWNED" 
1050 PRINT "BY BLACK IS SHOWN WITH THE 

NUHBER OF FORCES IN THAT SQUARE AGAI 
NST A BLACK" 

1060 PRINT "BACKGROUND; A WHITE-OWNED 
SQUARE HAS A WHITE BACKGROUND." 
1070 PRINT " SQUARES CONTAINING BOT 
H SIDES' FORCES ARE SHOWN WITH LETT 
ERS REPRE-" 
1080 PRINT "SENTING THE RELATIVE FORCE 

SIZES. AT THE END OF EACH TURN, BATT 
LES ARE" 

1090 PRINT "FOUGHT IN EACH- OF THESE SQ 
UARES, TO DETERMINE WHO OWNS THEN. 
THE FIRST" 

1100 PRINT "PLAYER TO OWN ALL THE SQUA 
RES WINS." 
1110 PRINT 
CH ROUND, 
CH SIDE," 

1120 PRINT "AND EACH SIDE'S MOVEMENT A 
LLOWANCE IS INCREASED." 
1130 RETURN 

Initialize variables. 

2000 BL=0:WH=1 
2010 F=0sT»l 
2020 HC=NC-1:NR=NR-1 
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2030 DIM DC(1),EC(1),LC(1),PC(1) 

2040 DIM MAU),HF<1>,NS<1),TF(1),PN1*< 

20),PN2*(20),SP$(15) 

2050 DIM CP(MC,MR),SF<NCt2,NR) 

2055 FOR 1=0 TO 1:MA<I)=0:NF(I)=0:TF(I 

)=0:NEXT I 

2060 LC(BL)=4:DC{BL)=13:EC(BL)=21 

2070 LCIHH)=LC(BL)+20:DC(HH)=DC(BL)+20 

:EC(WH)=EC(BL)+19 

2080 PR=15; FR=PR+2: SR=FR+2: AR=SR+2 

2090 DIM BS$(l),SP*il>,CU*il),BC$(l),X 

$<20),CH*(1) 

2100 SP*=" ":CU*="#" 

2120 HC=INT(NC/2) 

2130 FOR RQH=0 TO MR 

2140 FOR COL=0 TO HC-1:CP(C0L,R0H)=BL: 

NEXT COL 

2150 FOR COL=HC TO MC:CP(COL,ROH)=tlH:N 

EXT COL 

2160 NEXT ROM 

2170 NS(BL)=NR*HC:NS(HH)=NRtNC-NSiBL) 

2175 FOR COL=0 TO NC»2:FQR ROB=0 TO MR 

:SF(COL,ROH)=0:NEXT ROB:NEXT COL 

2180 OPEN #2,4,0, "K:" 

2190 RETURN 

Input players' names. 

3000 POKE 752,0:P0SITI0N 2,22:PRINT *B 

LACK PLAYER'S NAME: ";: INPUT PHI* 

3010 IF PN1*="" THEN PN1$="BLACK" 

3020 IF LEN(PN1*)>15 THEN PN1*=PN1«1, 

15) 

3025 PC(BL)=9-LEN(PNl*!/2 

3030 POSITION 2, 23: PRINT "HHITE PLAYER 

'S NAME: ";:INPUT PN2* 

3040 IF PN2$="" THEN PN2*="«HITE" 

3050 IF LEN(PN2«)>15 THEN PN2*=PN2$(1, 

15) 

3055 PC(HH)=29-LEN(PN2$)/2 

3060 POKE 752,1: RETURN 

Draw playing field, and display player 
data. 



4000 BC*sSP* 
4010 PRINT CL$ 



4020 FOR ROH=0 TO MR: FOR COL=0 TO HC 

4030 GOSUB 30 

4040 NEXT COL: NEXT ROM 

4050 FOR IPL=BL TO HH 

4070 POSITION PC(IPL),PR:IF IPL=BL THE 

N PRINT PNl*i 

4075 IF IPL=HH THEN PRINT PN2*; 

4090 POSITION LC(IPL),FR:PRINT "FORCES 

• »■ 

4095 POSITION DC(IPL),FR:PRINT TF(IPL) 

4110 POSITION LCUPL),SR:PRINT "SQUARE 

4115 POSITION DC(IPL),SR:PRINT NS(IPL) 

i 

4130 POSITION LC( IPL), AR: PRINT "MOVEME 

NT: "; 

4135 POSITION DC (IPL),AR: PRINT MA(IPL) 

« 

4140 NEXT IPL 
4160 RETURN 



Begin Black's turn. Add new forces to 
edge squares, and increase movement 
allowances. 



5000 BC$=SP$ 
5005 S=1:D=10:V=8 
5010 FOR IPL=BL TO HH 
5020 HF(IPL)=INT(NS(IPL)/NR)tl 
5030 NEXT IPL 

5040 FOR R0W=0 TO MR: FOR COL=0 TO HC S 
TEP MC 

5050 CP=CP«C0L,ROH):SF=SF(COL+CPtNC,RO 
») 

5060 NF=MF(CP):IF SF+NF>?9 THEN NF=99- 
SF 

5070 IF NF>0 THEM SF(COL+CP»NC,RDW)=SF 
+NF.-60SUB 30 

5080 TF«CP)=TF(CP)+NF:MA(CP)=HA(CP)+HF 
iCP) 

5090 NEXT COL: NEXT ROW 
5100 POSITION DC!BL),FR;PRINT TF(BL!;" 
"::P0SITI0N DC!WH!,FR:PRINT TF(HH);" 
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5110 POSITION DCIBL),AR:PRINT HA(BL)}" 
"j.POSITION DC(NH),AR:PRINT HAtHH);" 

o. 

I 
5120 PL=BL:CC=0 
5125 S=0 
5130 RETURN 



Execute player's moves; move men until 
done or until his movement allowance Is 
exhausted. 



6000 CR=INT(NR/2) 

6010 NG-0 

6020 PF=F 

6030 POSITION PC<PL),PR.Iv=128sXt=PNl* 

:IF PL=HH THEN X$=PN2$ 

6035 G0SUB 20 

6040 BC*=C'J$:COL=CC:RO^CR:60SUB 30 

6050 B0SUB 11000 

6060 HG=SF(CC+PLINC,CR) 

6070 IF HA(PL)=0 THEN 6120 

6080 60SUB 10000 

6090 IF CH*="H" THEN 6030 

6100 IF CH$=BS$ OR DF THEN 6050 

6110 IF CHJO'E" AND CHtO'S" THEN 606 



6120 BC$=SP*iC0L=CC:R0H=CR:B0SUB 30 

6130 N6=0:G0SUB 11000 

6150 IV=0!P0SITI0N PC(PL) ,PR:X$=PNl*!l 

F PL=HH THEN X$=PN2* 

6155 G0SUB 20 

6160 IV=0:RETURN 



Fight battles to the death In all squares 
that contain both players' forces. 



7000 IF NS(PL)=0 THEN 7170 

7005 S=l;D=4:v=12 

7010 FOR RQB=0 TO NR.FQR C0L=0 TO H.C 

7020 CP=CP(C0L,R0H):IF CP=PL OR SFIC0L 

+PLINC,RQH>=Q THEN 7160 

7030 NS(CP)=NS(CP)-1 

7040 N8=SF<C0L+BUNC,R0H).NB=SF<C0L+HH 

tm,mm 



7050 IF NHONB THEN CP(C0L,R0H>=<N«>NB 
) 

7060 IF NH*NB=0 THEN 7130 
7070 SF=NB+NH . 
7080 IF NB<SF*R r ND(l) THEN NB=NB-1:TF(B 
L)=TF<BL)-1 v -/ 
7090 IF NH<SF*RNP(1) IHEN NN=NN-1.TF(H 
^MFfNHJ-l 
7100 POSITION DC(BL),FR:PRINT TFiBL);" 

";:P0SITIQN DC (HH),FR: PRINT TF(HH); B 

». 
> 

7110 SF(C0UBLINC,R0H)=NB:SF<C0L+WHtNC 

.RQW)=NW 

7120 G0SUB 30s GOTO 7050 

7130 G0SUB 30 

7140 CP=CP<C0L,RQH)sNS(CP)=NS(CP)+l 

7150 POSITION DC<BL),SR:PRINT NS(BL)j" 

"jiPOSITION DC<HH),SR:PRINT NSIHH):" 

7160 NEXT CQLsNEXT RON 
7165 S=0 
7170 RETURN 



End of a turn. Check for end of game; if 
not, transfer control to player. 



8000 IF NS(BL)*NS(HH)>0 THEN 8100 

8020 HP*=PN1*:IF NS(BL)=0 THEN HP$=PN2 

t 

8025 POSITION 11,23:PRINT " 

* 

8030 FOR Z=l TO 10:P0SITI0N 2,21 
8035 SOUND 0,50,10,10 
8040 PRINT " 

" ; s FOR ZZ=1 TO 10.NEXT ZZ 
8045 SOUND 0,100,10,10 
8050 POSITION 16-LEN(HP*)/2,21.PRINT W 
P*;" WINS!! ! H j:F0R ZZ=1 TO 20:NEXT ZZ: 
NEXT Z 

8055 SOUND 0,0,0,0 

8060 POKE 752,0:P0SITI0N 14,23:PRINT ' 
ANOTHER GAME";: INPUT X*;IF X$=" THEN 
8060 

8070 IF Xt(l,l)= , N B THEN 160 
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8090 RUN 

8100 IF PL=NH THEN 120 
8110 PL=HH:CC=HC 
8120 B0T0 130 

Input and execute a command. 

10000 6ET 12, CH 

10010 CH*=CHR*(CH) 

10030 DF=<CH*>="0" AND CH*<="9"):DC=0: 

DR=0 

10040 IF DF AND NOT PF THEN NB=0 

10050 PF=DF 

10060 IF DF THEN NG=10*N6+VAL(CH*):6QT 

10160 

10070 IF CH$=BS* THEN NB=INT(NB/10) sPF 

=1:G0T0 10160 

10080 IF CH$="E" THEN 10160 

10090 IF CH$="H" THEN 60SUB 12000: GOSU 

B 4000: BOTO 10160 

10100 IF CHt="I" THEN DR=-1:60T0 10150 

10110 IF CH$="J" THEN DC=-1:60T0 10150 

10120 IF CH$="K" THEN DC=1:80T0 10150 

10130 IF CH*="M" THEN DR=1:60T0 10150 

10140 IF CH*="S" THEN NS<PL)=0:60T0 10 

160 

10150 GOSUB 13000 

10160 RETURN 



Adjust the number of forces being 
moved, and update the screen display. 



11000 IF CP(CC,CR)OPL THEN NG=0 

11010 IF NG>NG THEN N6=H6 

11020 IF N6>HA<PL) THEN NG=MA(PL! 

11030 POSITION 11,23 

11040 IF NB=0 THEN PRINT "<TYPE H FOR 

HELP>"j:GQTO 11080 

11050 PRINT AMOVING "jHBj" FORCE"? 

11060 IF NB>1 THEN PRINT "S"; 

11070 PRINT ">"$ 

11080 PRINT " °) 

11090 RETURN 



H", "PRINT THIS 



I", "HOVE SOHE F 



HVHQVE SOME F 
S", "SURRENDER T 



12000 PRINT CL*:PRINT " COMMAND: "," 
DESCRIPTION: ' 

12010 PRINT iPRINT "A NUHBER","NUHBER 
OF FORCES TO HOVE. " 
12020 PRINT : PRINT "BACKSPC", "DELETE L 
AST DIGIT OF NUMBER. " 
12030 PRINT " E","END TURN BEFORE HO 
VEHENT=0." 
12040 PRINT .-PRINT 
COMMAND LIST." 
12050 PRINT : PRINT 
ORCES UP." 

12060 PRINT iPRINT " J", "MOVE SOHE F 
ORCES LEFT. " 

12070 PRINT sPRINT " K","HQVE SOHE F 
ORCES RI6HT." 
12080 PRINT :PRINT 
ORCES DOWN." 
12090 PRINT .-PRINT 
OTHER SIDE." 

12100 PRINT :PRINT :PRINT » <HIT ANY 
KEY TO RETURN TO 6AHE>"; 
12110 6ET I2,X 
12120 RETURN 



Move cursor and forces, and update 
screen display. 



13000 SF<CC+PLINC,CR)=SF(CC+PLtNC,CR)- 
NG 

13010 BC*=SP*:CQL=CC:R0N=CR:6QSUB 30 
13020 CC=CC+DC:CC=CC+(CC<0)-(COHC) 
13030 CR=CR+DR:CR=CR+<CR<0)-(CR>HR) 
13040 FS=SFfCC+PLtNC,CR):IF FS+NG>99 T 
HEN SF (COL+PL»NC, ROW) =SF (COL+PLING, RON 
)+NG-(99-FS):NG=99-FS:G0SUB 30 
13050 SF<CC+PLtNC,CR)=FS+NG 
13060 IF CC=CQL AND CR=ROH THEN NG=0 
13070 BC*=CUI:COL=CC:ROH=CR: GOSUB 30 
13080 MA(PL)=HA(PL)-N6:60SUB 11000 
13090 POSITION DC(PL),ARsPRINT MA(PL)} 



13120 RETURN 
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Solitaire 



by Larry Williams 
Atari version by Alan J. Zett 



Solitaire is a graphic card game for a 
24K Atari. 

Solitaire games are among the most 
popular card games. Although they 
lack the action of the arcade games, 
they can be every bit as addictive. 
What starts out as "one quick game" 
often turns into an evening of "one 
more game." 

There are many variations of 
solitaire; however, the most widely 
known version is the game of Klon- 
dike. Both the lay-out and the rules of 
the game are simple. It is this simplicity 
that is perhaps its strength. 

The Rules of Klondike 

1. Use one deck of playing cards. 

2. Deal twenty-eight cards into seven 
piles. The first pile on the left contains 
one card, the second contains two 
cards, and so forth. 

3. Deal the top card of each pile face 
up. 

4. Build on each pile in descending se- 
quence and alternating colors. (Exam- 
ple: Any red ten may be played on any 
black jack.) 

5. You are always entitled to have 
seven piles. If you clear away a pile 
leaving a space, you may play any king 
to the space. 

6. The remaining twenty-four cards 
form the "stock." Cards are turned up 
one at a time from the stock onto the 
"waste" pile. The top card of the 
waste pile is always in play. 



7. Any complete column of cards may 
be picked up as a unit and played on 
another pile. (Example: A column of 
cards consisting of the 9 of hearts, 8 of 
spades, and 7 of diamonds may be 
played as a unit on a 10 of spades.) 

8. When a face-down card of a pile is 
uncovered, it is brought into play by 
turning it face up. 

9. Whenever an ace comes into play, 
use it to start a "foundation" pile. 
Foundation piles are started to the side 
of the seven original piles of the 
tableau. 

10. You build up on the foundation 
piles in suit and sequence. 

11. The bottom card of any column of 
cards is eligible for play to its foun- 
dation. 

12. Once a card is played to its found- 
ation, it is out of play for the rest of the 
game. 

13. The object of the game is to play 
each card to its foundation pile. 

When the game program is RUN you 
will find the seven piles of the tableau 
laid out horizontally across the top of 
the playing surface. The first card in 
play is displayed in the lower right cor- 
ner. A cursor is positioned at the bot- 
tom of the screen, and a summary of 
the commands available is displayed. 
When you start foundation piles they 
will appear at the right of the screen, 
above the waste pile. 

The following single key commands 
are available: 
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LEFT ARROW: Moves the cursor to 
the left. 

RIGHT ARROW: Moves the cursor to 
the right. 

P: Picks up the card or column of 
cards above the cursor. 
D: Drops cards which have been 
previously picked up at the cursor posi- 
tion, if the play is legal. You may 
always drop a card back where you 
picked it up. 

N: Brings the next card from the stock 
into play by placing it on the top of the 
waste pile in the lower right of the 
screen. You are allowed only one pass 
through the stock. 

F: Plays the card positioned above the 
cursor to its foundation pile, if the play 
is legal. (You need not type P to pick 
up a card that you wish to play to a 
foundation. Typing F alone will 
automatically move the card from 
its current location to its proper 
foundation.) 

E: When you have no more legal plays, 
type E to end the game. The program 
will request confirmation of this com- 
mand. Typing E will end your current 
game and begin a new one. 

Variables 

A$: Temporary string variable. 
AZ: Loop variable. 
C: Set equal to VA. 
C(6,ll): Array of card values in the 
tableau. 

C$: Card values in letter form. 
CHR: Related to ASCII value of cur- 
rent card value. 



CPOS: Memory location of character 
data for current card value. 
CU: Value of current cursor position 
(1-7). 

D(51): The deck of cards. 
F(4): Array of top cards on founda- 
tion piles. 

G$(5): Graphics strings. 
HF: Set to 1 if you have picked up 
cards in your hand, if you do not. 
I,IN,J: Counters. 

IN(7): Array of counters pointing to 
the next open element in the tableau 
array and open deck. 
NUM.- Card and suit value. 
OC: Old cursor position. 
OD(23): Array for open deck. 
PAUSE: Delay loop variable. 
P(6,5): Array of face-down cards in 
tableau piles. 

RN: Set to seed number for RND. 
T: Temporary variable. 
TX$(13): Array of text messages. 
ST: Cursor position at which cards 
were last picked up. 
SU: Suit of the card. 
VA: Face value of the card. 
VA$: Card values in letter form. 
X: Loop variable. 

X(7): X-coordinate values for tableau 
piles, waste pile (open deck), and 
foundations. 

Y1,Y2,Y3,Y4: Y-coordinates for the 
four foundation piles. 
Y(0-12): Y-coordinates for cards 
played to the tableau. 
Y(13): Y-coordinate for the waste 
pile. 
Z,ZA: Loop variables. 



ss ss ss ss ss ss ss ss ss ss ss 
ss ss 

SS Atari BASIC SS 
SS 'Solitaire' SS 
SS Author: Larry Hilliaas SS 
SS Translator: Alan J. Zett SS 
SS Copyright (c) 1982 SS 
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1 BRAPHICS 18:P0KE 756,209 
10 POSITION 5,3:? i6:» sQUtAiRe 'iPQSIT 
ION 3,5:? 36; " TRANSLATED BV 'zPOBITION 
4,7:? Hii- alan j zett " :60T0 1110 

Subroutine to draw cards. 

20 COLOR 1:F0R AZ=Y TO Y+30:PL0T X,AZ: 
DRAHTO X+30 f AZsNEXT AZ 

22 C=VA:0N SU GOTO 36,46, 24, 2B 

23 REM OIAHOrjDS 

24 COLOR OjFOR ZA=0 TO 9: FOR AZ=0 TO Z 
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A STEP 2:PL0T X+15+AZ,Y+ZA+6:PLQT X+15 
-AZ r Y+ZA+6:NEXT AZ:NEXT ZA 

26 FOR ZA=9 TO STEP -Is FOR AZ=0 TO Z 
A STEP 2:PL0T X+15+AZ,Y-ZA+25sPL0T X+l 
5-AZ,Y-ZA+25:NEXT AZ:NEXT ZA:60T0 56 

27 REH HEARTS 

28 COLOR 0:FOR ZA=0 TO 10: FOR AZ=0 TO 
ZA STEP 2:PLQT X+15+AZ,Y-ZA+25:PL0T X+ 
15-AZ,Y-ZA+25:NEXT AZ:NEXT ZA 

30 FOR ZA=U TO 15: FOR AZ=0 TO 10 STEP 
2:PL0T X+15+AZ,Y-ZA+25:PL0T X+15-AZ,Y 

-ZA+25-.NEXT AZ:NEXT ZA 

32 Z=-2:F0R ZA=16 TO 18:Z=Z+2:FDR AZ=Z 
TO 8-Z STEP 2:PL0T X+15+AZ,Y-ZA+25:PL 

QT X+15-AZ,Y-ZA+25:NEXT AZ:NEXT ZA 

34 60T0 56 

35 REH SPADES 

36 COLOR 0:FQR AZ=0 TO 9:PL0T X+15+AZ, 
Y+AZ+6:DRAHTQ X+15-AZ,Y+AZ+6:NEXT AZ 
38 FOR AZ=10 TO 12: PLOT X+15+9,Y+AZ+6: 
DRAHTD X+15-9,Y+AZ+6:NEXT AZ 

40 Z=-2:F0R ZA=13 TO 15:Z=Z+2:F0R AZ=Z 
TO 8-Z:PL0T X +i 5+AZ , Y+ZA+6 s PLOT X+15- 
AZ,Y+ZA+6:NEXT AZjNEXT ZA 
42 Z=0:FOR AZ=13 TO 19:Z=Z+1:PL0T X+15 
+Z,Y+AZ+6:DRAHT0 X+15-Z,Y+AZ+6:NEXT AZ 

44 60T0 56 

45 REH CLUBS 

46 COLOR 0iAZ=X+ll:ZA=Y+6:60SUB 52:AZ= 
X+5:ZA=Y+13:60SUB 52:AZ=X+17:6QSUB 52 
48 Z=0:FOR AZ=14 TO 21:Z=Z+0.65:PLQT X 
+15+Z,Y+AZ+5:DRAHT0 X+15-Z,Y+AZ+5:NEXT 

AZ 

50 FOR Z=X+14 TO X+16:PL0T Z,Y+13:DRAH 
TO Z,Y+19:NEXT Z:BOTO 56 
52 PLOT AZ+2,ZA:DRAHT0 AZ+6,ZA:PL0T AZ 
+2,ZA+7:DRAHT0 AZ+6,ZA+7:PL0T AZ*1,ZA* 
hDRAHTO AZ+7,ZA+1 
54 PLOT AZtl,ZA+6:DRAHT0 AZ+7,ZA+6:F0R 

Z=ZA+2 TO ZA+5:PL0T AZ,Z:DRAHTO AZ+8, 
Z:NEXT Z:RETURN 

56 CHR=ASC(C*(C,C)):IF CHR<96 THEN CHR 
=CHR-32*(CHR>31)+64MCHR<32) 
58 CP0S=CHR*8+(PEEK<756)»256) 
60 FOR AZ=0 TO 7:P0KE (AZ»40)+NEH+(X/B 



)+(Y*40),255-PEEK(CP0S+AZ):NEXT AZ:RET 

URN 

Subroutine to get SU and VA. 

70 SU=INT(NUH/100) 
80 VA=NUH-100»SU 
90 RETURN 

Subroutine for next card. 

100 IF HF THEN SOSUB 1480:RETURN 

110 IF IN>51 THEN 1490 

120 0D(IN(7))=D(IN):IN=IN+1:X=X!7):Y=Y 

(13):NUH=0D(IN(7)):60SUB 70:60SUB 20:1 

N(7!=IN(7)+i 

140 RETURN 

Subroutine to draw cursor. 

150 POKE 656,0: IF 0C<7 THEN POKE 657,4 

JQC+4:? " " 

160 IF 0C=7 THEN POKE 657,35:? " " 

170 POKE 656,0:IF CU<7 THEN POKE 657,4 

»CU+4:? "1" 

180 IF CU=7 THEN POKE 657,35:? " A " 

190 RETURN 

Subroutine to move right. 

200 CU=CU+1:IF CU>7 THEN CU=7 
210 GOSUB 150 
220 0C=CU 
230 RETURN 

Subroutine to move left. 

240 CU=CU-1:IF CU<0 THEN CU=0 
250 GOSUB 150 
260 0C=CU 
270 RETURN 

Subroutine to pick up cards. 

280 IF HF THEN GOSUB 1480:RETURN 
290 ST=CU 

300 IF IN(CU)=0 THEN GOSUB 1510:RETURN 
310 IF CU=7 THEN NUH=0D(IN<7)-1):GQT0 
330 

320 NUH=CiCU,0) 
330 HF=1 
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340 J=0:IF CU=7 THEN COLOR 1:F0R 1=0 T 

30: PLOT X(CU)+I,Y(13):DRANT0 X(CU)+I 

,Y<13)+30:G0T0 370 

350 IF P(CU,0)=0 THEN COLOR 0:F0R 1=0 

TO 30:PL0T X<CU1+I,Y(J):DRAHT0 X(CU)+I 

,Y(J)+30:G0T0 370 

360 FOR 1=0 TO 30 STEP 2: COLOR 0:PLOT 

X(CU)+I,Y(J):DRAHTO X(CU)+I f Y(J)+30 

365 IF K30 THEN COLOR liPLOT X(CU)+I+ 

l,YfJ):DRAHTQ X(GU)+I+l,Y(J)+30 

370 NEXT I 

380 IF CU=7 THEN 60SUB 150s RETURN 

390 J=12*(IN<CU)-l)+32 

395 COLOR 0:FOR 1=0 TO 30sPL0T X(CU)+I 

,Y(0)+31:DRANT0 X(CU!+I,Y(0)+J:NEXT I 

400 RETURN 

Main subroutine to drop card. 

410 IF NOT HF THEN BOSUB 1520s RETURN 
420 IF CU=7 THEN 60SUB 590: RETURN 
430 IF ST=CU THEN GOSUB 750: RETURN 
440 IF IN(CU>=0 THEN BOSUB 630:RETURN 
450 NUN=C(CU,IN(CU)-1) 
460 SOSUB 70:TS=SU:TV=VA 
470 IF ST=7 THEN NUH=0DUN(7)-1):60T0 
490 

480 NUN=C(ST,0) 

490 GOSUB 70: IF ((TS=i) OR (TS=2I) AND 
<(SU=1) OR (SU=2)) THEN BOSUB 1530:RE 
TURN 

500 IF UTS=3> OR (TS=4)) AND ((SU=3) 
OR (SU=4)) THEN 60SUB 1540:RETURN 
510 IF TVOVA+1 THEN GOSUB 1550:RETURN 
520 IF ST=7 THEN BOSUB 700: RETURN 
530 FOR 1=0 TO IN(ST)-1:NUH=C(ST,I):C( 
CU, IN (CU))=NUN: BOSUB 70:X=X<CU):Y=Y(IN 
(CU)):GOSUB 20:IN(CU)=IN(CU)+1 
540 C(ST,I)=0:NEXT I:IN<ST)=0:HF=0 
550 IF P(ST,0)=0 THEN RETURN 
560 NUH=P(ST,0):GOSUB 70:X=X<ST):Y=Y<0 
):BOSUB 20:C(ST,IN(ST))=NUH:IN(ST)=1 
570 FOR 1=0 TO 4:P(ST,I)=P(ST,I+1):NEX 
T I:P(ST,5)=0 
580 RETURN 



Drop card back on open deck. 

590 IF ST<>7 THEN GOSUB 1560: RETURN 
600 NUM=0D(IN<7)-1):6QSUB 70:X=X(CU):Y 
=Y(13):G0SUB 20:60SUB 150 
610 HF=0 
620 RETURN 

Drop king on open space. 

630 IF ST=7 THEN NUM=QD(IN(7)-1):BQTQ 

650 

640 NU«=C(ST,0) 

650 GOSUB 70 

660 IF VA<>13 THEN GOSUB 1570:RETURN 

670 IF ST=7 THEN 60SUB 700: RETURN 

680 BOSUB 530 

690 RETURN 

Drop card from open deck. 

700 X=X (CU) : Y=YUN(CU) ) :CICU, INICU) )=N 

UH:B0SUB 20:IN(CU)=IN(CU)+1 

710 IN(7)=IN(7)-1:OD(IN<7))=0:HF=0 

720 IF IN(7i=0 THEN COLOR 0:X=X(7):Y=Y 

(13): FOR 1=0 TO 30: PLOT X+I,Y:DRAHTO X 

+I,Y+30:NEXT I: RETURN 

730 NUH=0D(IN<7)-1):6QSUB 70:X=X(7):Y= 

Y( 13): BOSUB 20 

740 RETURN 

Drop cards back where you got them. 

750 FOR 1=0 TO IN(CU)-l:NUrt=C(CU,I>:60 
SUB 70:X=X(CU):Y=Y(I):G0SUB 20: NEXT I 
760 HF=0 
770 RETURN 

Play to foundations from open deck. 

780 NUH=0D(IN(7)-1):B0SUB 70:FL=1 
785 IF (F(SU)OVA-l) AND (F(SU)=0) THE 
N BOSUB 1580: RETURN 

790 IF F(SU)OVA-l THEN TV=F<SU):60SUB 
1550: RETURN 
800 BOSUB 980 
810 0»(IN(CU))=0 

820 IF IN(CU)=0 THEN BOSUB 720:RETURN 
830 GOSUB 730 
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835 GDSUB 150 
840 RETURN 

Play last card of column to foundation. 

850 IF P(CU,0)=0 THEN COLOR OsFOR 1=0 

TG 30:PLOT X(CU}+I,Y(0}:BRABTG X(CU)*I 

,Y(0)+30:60TO 875 

860 FOR 1=0 TO 30 STEP 2:C0L0R 0:PL0T 

X (CU) 4-1 v Y 101 : DRAHT0 X!CU)+I,Y(0>+30 

870 IF K30 THEN COLOR IsPLOT X(CU)+I+ 

1,Y(0):DRAWT0 X (CU) +1+1, Y (01+30 

875 NEXT I:C(CU,0)=P(CU,0) 

880 IF P(CU,0)=0 THEN RETURN 

890 NUH=C(CU,0):X=X(CU):Y=Y(0):60SUB 7 

0-.60SUB 20 

900 IN(CU)=1 

910 FOR 1=0 TO 4:P(CU,I)=P(CU,I+i):NEX 

T I:P<CU,5)=0 

920 RETURN 

Main subroutine to play to foundations. 

930 IF HF THEN RETURN 

935 FL=0 

940 IF IN(CU)=0 THEN 60SUB 1510:RETURN 

950 IF CU=7 THEN B0SUB 780:RETURN 

960 NUH=C(CU,IN(CU)-l)iG0SUB 70 

965 IF (F(SU)OVA-l) AND (F(SU)=0) THE 

N 60SUB 1580: RETURN 

970 IF FiSU)OVA-l THEN TV=F(SU):B0SUB 

1550:RETURN 
980 X=X(7) 

990 IF SU=1 THEN Y=Y1 
1000 IF SU=2 THEN Y=Y2 
1010 IF SU=3 THEN Y=Y3 
1020 IF SU=4 THEN Y=Y4 
1030 60SUB 20:F(SU)=VA 
1040 IN(CU!=IN(CU)-1:IF FL THEN RETURN 
1050 C(CU,IN(CU))=0 

1060 IF IN(CU)=0 THEN B0SUB 850:RETURN 

1070 X=X(CU):Y=Y(IN(CU)-1):NUH=C(CU,IN 

(CU)-1):60SUB 70:6QSUB 20 

1080 COLOR 

1090 FOR 1=31 TO 45s PLOT X!CU),Y(IN(CU 

)-l)+IsDRAHTQ X(CU)+30,Y(IN(CU)-1)+I:N 

EXT I 

1100 RETURN 



Initialize variables. 

1110 CLR iDIH TX*(91),AZ*(7),C$(13),C( 

6,11),P(6,5),D(51),0D<23),F(4),X(7),Y< 

13),IN(7):0PEN #1,4,0, "K" 

1115 TX$(91)="i , ;TX*(l,l)=" ":TX$(2)=T 

X* ( 1 ) ! C*="A23456789TM" : AZ*=TX$ 

1120 FOR 1=1 TO 13:AZ*=" ":READ 

AZ$:TX*(I*7-6,II7)=AZ$:NEXT I 

1150 FOR 1=0 TO 6.-F0R J=0 TO 5:CU,J) = 

0:P(I,J)=0:NEXT JsFOR J=6 TO 11:C(I,J) 

=0sNEXT J:NEXT I 

1160 FOR 1=0 TO 23iOD(I)=0:NEXT I 

1170 FOR 1=0 TO 4:F(I)=0:NEXT I 

1180 FOR 1=0 TO 7:X(I)=21+I*32!Y(I)=I* 

12:NEXT I:X(7)=269 

1190 FOR 1=8 TO 12!Y(I)=I*12:NEXT I 

1200 Y1=0:Y2=32:Y3=645Y4=96:Y!13)=128 

1210 POKE 756,224 

1220 IN=0:F0R 1=1 TO 4:F0R J=l TO 13:D 

(IN)=100tI+J:IN=IN+l:NEXT JrNEXT I 

Shuffle cards. 

1230 FOR 1=51 TO STEP -1:X=INT(RND(0 

)*<I+l)):T=D(X)iD(X)=D<I)iD(I)=T:NEXT 

I 

Deal to tableau. 

1240 IN=0sF0R 1=1 TO 6:F0R J=0 TO 1-1: 
P(I,J)=D(IN):IN=IN+1:NEXT JsNEXT I 
1250 FOR 1=0 TO 6:C(I,0)=D(IN):IN=IN+1 
:NEXT I 

Draw set-up. 

1260 GRAPHICS BsPOKE 710,96:P0KE 752,1 
:COL0R 1:P0KE 709,15sP0KE 712,4:HEH=PE 
EK(88)+PEEK(89)*256 
1280 FOR X=254 TO 258 STEP 2:PL0T X,0s 
DRAHTO X, 160: NEXT X 
1290 FOR 1=0 TO 6:NUM=C(I,0):60SUB 70: 
X=X(I):Y=Y(0):G0SUB 20:NEXT I 
1300 FOR 1=0 TO 6:IN(I)=1:NEXT I:IN<7) 
=0 

1310 GOSUB 100:G0SUB 1460 
1320 CU=0:DC=0iX=X(CU): GOSUB 150 
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Control program. 

1330 POKE 764,255:GET #1,A:A=A-32HA>9 
0) 

1340 IF A=42 THEN BOSUB 200:60T0 1330 
1350 IF A=43 THEN G0SUB 240;60T0 1330 
1360 IF A=78 THEN BOSUB 100s GOTO 1330 
1370 IF A=80 THEN 60SUB 280:G0T0 1330 
1380 IF A=68 THEN GOSUB 410: GOTO 1330 
1390 IF A=70 THEN GOSUB 930:60TO 1620 
1400 IF A=69 THEN 1420 
1410 60T0 1330 

Text messages. 

1420 GOSUB 1600s? "DO YOU WANT TO END 
THE GAME? <Y/N) B j:GET tl,A 
1430 IF A<>89 THEN GOSUB 1460:G0T0 133 


1440 RUN 

1450 GOSUB 1600:END 
1460 GOSUB 1600:? "ARROWS HOVE, E=END 
GAHE F=FOUNDATI0N N=NEXT CARD, P=PICK 
UP CARDS, D=DROP"; 
1470 RETURN 

1480 GOSUB 1600:? "YOU'VE ALREADY PICK 
ED UP A CARD";: GOTO 1610 
1490 GOSUB 1600:? "THERE ARE NO HORE C 
ARDS IN THE DECK YOU HUST PLAY WITH 
THE CARDS SHOWING";: GOTO 1610 
1510 GOSUB 1600:? "THERE ARE NO CARDS 
HERE TO PICK UP";: GOTO 1610 
1520 GOSUB 1600:? "YOU DO NOT HAVE ANY 
CARDS TO DROP";:GOTO 1610 
1530 GOSUB 1600:? "YOU CAN'T PLAY BLAC 
K ON BLACK"; :G0TO 1610 
1540 GOSUB 1600:? "YOU CAN'T PLAY RED 
ON RED";: GOTO 1610 

1550 GOSUB 1600:? "YOU CAN'T DROP A";T 
X*(VA»7-6,VA*7>:? "ON TOP OF A";TX*(TV 
*7-6,TV»7);:60T0 1610 
1560 GOSUB 1600:? "YOU CAN'T DROP CARD 
S HERE";:60T0 1610 

1570 GOSUB 1600:? "YOU CAN ONLY DROP A 
KING HERE";:60T0 1610 



1580 60SUB 1600:? "START YOUR FOUNDATI 
ON WITH AN ACE";:60T0 1610 

Names of cards. 

1590 DATA N ACE, TWO, THREE, FOUR, FIV 
E, SIX, SEVEN,N EIGHT, NINE, TEN, JACK 
, QUEEN, KING 

Clear bottom of screen. 

1600 POKE 656, 2: POKE 657,2:? CHRIU56) 
; CHR* ( 1 56 ) ; CHR$ < 253) ; : RETURN 

Pause subroutine. 

1610 FOR PAUSE=1 TO 300: NEXT PAUSE: 60S 
UB 1460:RETURN 

Check for game won. 

1620 IF FI1X13 OR F!2)<13 OR F13X13 

OR FI4K13 THEN GOTO 1330 

1630 GOSUB 1600:? ■ YOU WIN!! CARE TO 

PLAY AGAIN? (Y/N)";:6ET #1,A:IF A<>78 

THEN RUN 
1640 GRAPHICS 0:CLR 
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Gambler 




by Randy Hawkins 



Atari version by Rich Bouchard 



Gambler is a game program for up 
to four players requiring a 32K Atari. 

Gambler is more than a dozen dif- 
ferent games of chance. You and as 
many as three of your friends compete 
in a contest to see who can parlay a 
$100 stake into $1000 first. The com- 
puter would not be content to just keep 
score and watch all this money change 
hands so it becomes a "player" with 
just the same chances of winning and 
losing as you have. 

On each player's turn, he is first 
given the opportunity to buy as many 
as three lottery tickets. A lottery ticket 
will return $50 to the owner if it 
matches the winning numbers in the 
lottery. After purchasing any tickets 
desired, the wheel of fortune is shown. 
A block of light dances randomly 
around the board stopping momentari- 
ly beside the name of the many games 
available. The player touches any key, 
and the dot slowly settles into one 
category — the game in which the 
player will participate. 

There are many types of games 
available in Gambler. Some are very 
simple; you may be instructed by a 
mysterious fortune teller to give or 
receive amounts of money to or from 
other players or the bank. The names 
of some of these categories are 
somewhat deceptive so pay close atten- 



tion as the message slowly scrolls 
across the screen. 

There are also several betting games 
involving dice. You can win or lose 
money by betting on the outcome of 
the two dice rolls: will the total be 
even, will your roll be highest, or will it 
be the lucky number 7? There is even a 
form of "dice poker" with the best 
hand taking the pot. 

Gambler even has its own horse rac- 
ing track so that all the players can bet 
on the outcome and try to win the 
purse. Lotteries are also held once in a 
while to pay off the winning lottery 
tickets. Big money is available 
whenever a sweepstakes is held. The 
correct bet on the outcome of the roll 
of six dice can bring the winner up to 
$450. 

Gambler is loosely based on a board 
game with many extras added. Because 
the computer always plays, you can 
practice with it. And since as many as 
four humans can play along with the 
computer, it makes a great game for 
parties or when you have a large crowd 
eager to play with the computer. 

The winner is the first player to go 
over the $1000 mark. In case of a tie, 
the game continues until someone gets 
ahead. Should you go broke, the bank 
will advance you $100 but will charge 
you with one IOU. As soon as you can, 
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you must pay the IOU back at a price 
of $110. These transactions will take 
place only on your turn. 

So the time has come. Type in this 
program, gather three of your friends 
around the video screen, and see who is 
the champion gambler in your 
household. 
Variables 

A$: Contains name of game read 
from the DATA statements in lines 
390-410. 

Al$, A2$: Graphics strings used as 
borders in game selection screen. 
B: ASCII code of user response. 
D(6): Utility variables for six rolls of 
dice, six horse race positions, etc. 
D$: Contains the pictures of the six 
dice. 

GN: Game number selected in 
selection routine. 

H$: Contains picture of the horses 
used in horse race subroutine. 
HM: Contains highest money total 
when searching for winner. 
HN: Number of player with highest 
money total. 
I, J, K, L, S: Utility FOR-NEXT 



counters. 

IO(X): Contains number of IOUs 
held by player X. 

IP: Used as a loop variable to signal 
which player's turn it is. 
JJ: Upper boundary on the FOR- 
NEXT loop that increases gradually 
to slow movement of the dot in game 
selection function. 

L(X): Number of lottery tickets held 
by player X. 
L$: Lottery ticket string. 
M(I): Contains amount of money 
help by player I. 

M$: Used to hold the message printed 
out during various functions. 
N: Contains the number of players. 
N$: Contains players' names. 
PB: Contains the number of IOUs 
which can presently be paid off. 
R$: Used as a utility string in 
construction of graphics. 
T$, Tl$: Used to generate an 
individual lottery ticket. 
TI: Used as a timing delay. 
X, Y, XI, Yl: Used to hold present 
and previous print location for dot in 
game selection routine. 



ss ss ss ss ss ss ss ss ss ss ss 
ss ss 

SS Atari BASIC SS 

SS 'Gambler' SS 

SS Author: Randy Hawkins SS 
SS Translator: Rich Bouchard SS 
SS Copyright (c) 1982 SS 
SS SoftSide Publications, Inc SS 
SS SS 

SS SS SS SS SS SS SS SS SS SS SS 

Program initialization. Line 20 creates 
A1$ and A2$, graphics strings used In 
the borders of the game selection 
screen. Subroutine 420 does further 
Initialization of graphics. Lines 30 and 
40 set the number of players, N. Line 50 
determines players' names and 
Initializes money, M(l), numbers of IOUs, 
IO(l), and lottery tickets, L(l). If desired, 
Instructions are displayed after 
prompting In line 50. 



1 GRAPHICS 

12 POKE 82,1: OPEN #2,4,0, "Kj " 

15 DIH N$(50),Z$(40),L$(50),H(6),I0(6) 
,L(6),T$(3),T1*<3),A1*(40>,A2*(40),A*( 
30),D*(102),R$(4),0$(39),S$<6),Btfl) 

16 DIM D(6),H*(16),H$(140),P!6) 

17 FOR 1=1 TO 6:L(I)=0sNEXT I 

18 FOR T=i TO 50:N$(T,T)=" *:NEXT T:L$ 
=N$:Q$=N*!1,39) 

20 A1J= B .. "!Alt<3,3)= 
CHR$(25):AU(LEN<AUItl)=Alt:A2$=" 

22 Al$(LEN(Al$)+l)= a J:BOSUB 420 

30 PRINT "How aany players (up to 4) ? 

40 GET #2,N:N=N-48:IF N<1 OR N>4 THEN 
40 

42 PRINT N 

50 FOR 1=1 TO N:? "Who is player #";I; 
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: INPUT Zt:N*(I*10-9,mO>=Z$:H(I)=100: 

IO(I)=0 

52 L{I)=0:NEXT I:N*(Iil0-9,I*10)="ATAR 

I ":M<I>=100;IQ(I}=0:N=N+1:PRINT " 

Do you need to see instructions?"; 

60 GET #2 ? BsIF CHR*(B)="Y' THEN GQSUB 

1370 

Game loop. Loop, using variable IP, 
cycles through each player's turn. 
Present money totals are shown In line 
80. Broke players are handled by lines 
90-120. Lottery tickets are bought In 
lines 130-150. Game number Is selected 
In subroutine 290, and line 180 transfers 
control to the appropriate routine. 

70 FOR IP=1 TD N 

80 GRAPHICS 0: PRINT " Present bankrolls 

IQUs ";? "rrrrrrrrrrrrrr 
rrrrrrrrrrrrrrrrrrrrrrrrr"; 

81 REM Line 80: Second string= 

39 <CTRL> R's 

82 FOR J=l TO NsPRINT N$iJ*10-9,OtlO); 

$";H(JhP0SITI0N 35,J+1:? I 
0(J):NEXT J:? :60SUB 200 
84 PRINT "It is ";N$(IP*10-9,IPti0);" 
s turn.":? :IF H!IP)>=0 THEN 100 
90 I0(IP)=I0(IP)+1:«(IP)=HUP)+100:IF 
H(IP)<=0 THEN 90 

92 PRINT "You iust borrow ioney to con 
tinue to play and pay it back to the 
bank .... plus interest!" 
94 FOR TI=1 TO 800:NEX7 TI:B0T0 80 
100 IF I0(IP)<=0 OR NUPK110 THEN 130 
110 PB=INT!«!IP)/110):IF PB)IO(IP) THE 
N PB=I0(IP) 

120 I0(IP)=I0(IP)-PB.:H!IP)=H(IP)-110»P 
BsPRINT "You can pay back ";PB;" I0U n 
ote(s)":? "at 110 dollars each." 
122 FOR TI=1 TO 800:NEXT TI 
130 IF L(IP)=3 THEN 160 
132 PRINT "Would you like to buy a lot 
tery ticket for $10 ? "; 
140 IF IP=N THEN PRINT "Y":G0T0 154 
150 GET I2,B:IF CHRt(B)="N" THEN 160 
152 IF CHR*(BX>"Y" THEN 150 
154 ? CHR$(253h60SUB 260:L(IP)=LUP>+ 



l;L$UPt9+L(IP)*3-ll,IP*9+LiIP)*3-8)=T 
*:N(IP)=H(IP)-10 

156 FOR TI=1 TO 400:NEXT TliGOTO 80 
160 ? POSITION 4,20:? "Hit any key to 
continue") 

170 BET I2,B:B0SUB 290 
180 ON GN GQSUB 1020,810,460,1130,1170 
,1190,460,1200,1230,1240,460,750,1300, 
940,1020,710,810,1310,1320,750,460 
182 IF GN>21 THEN ON GN-21 G0SUB 1330, 
710,810,1340,1350,1330,810,460,940,131 
0,710,750,1360,810,710 
190 IP=IP+1:IF IP>N THEN 70 
192 GOTO 80 

Called In game loop to check for winner. 
The highest money total Is found In line 
200. If greater than $1000, then winner Is 
notified; otherwise, game continues. 
Option of playing a new game Is In lines 
240:250. 

200 H«=H(1):HN=1:F0R J=2 TO N:IF H<J)> 

HH THEN HM=H(J):HN=J:NEXT J:G0T0 210 

202 NEXT J 

210 IF HH<1000 THEN RETURN 

220 K=0:F0R J=l TO N: IF H(J)=HH THEN K 

=K+1 

222 NEXT i 

230 IF KM THEN PRINT "Since there's a 

tie, keep going":? :RETURN 
240 ? :? N*(HN*10-9,HN*10);" wins this 

gaae Nith ":? HHj" dollars!" 
242 FOR T=l TO 100-.S0UND 0,T,10,10:F0R 

TI=1 TO 5:NEXT ThSOUND 0,255-T,10,10 
:F0R TI=1 TO 5:NEXT ThNEXT T 
244 SOUND 0,0, 0,0: SOUND 1,0,0,0 
248 ? :? "Would you like to play again 

?»; 

250 GET #2,B:IF CHR*(B)="Y" THEN RUN 

252 END 

Lottery subroutine.. Selects two-digit 
lottery ticket that Is different from all 
other lottery tickets Issued. Displays 
results In line 280, and returns. 

260 T$=" - ":T*I1,1)=CHR$<49+INT<RND(0 
)*5)):T1*=CHR$(49HNT(RND(0)*6)):IF Tl 
*<=T* THEN 260 
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262 T*(3,3)=T1*:F0R 1=1 TO N;IF L(I)=0 
THEN 280 
270 FOR J=l TO L!I):IF Tt=L$(I*9+J*3-l 
l,I*9+Jt3-9) THEN 260 
272 NEXT J 

280 NEXT I:PRINT "You receive ticket n 
uiber ";T$: RETURN 

Game selector. Prints border, using A1$ 
and A2$. Reads names of games from 
DATA statements In lines 390-410. Lines 
320-350 wait for players to touch any 
key. Lines 360-380 settle on one game, 
set the game number GN, and return. 

290 RESTORE : GRAPHICS 0: PRINT A2$;:F0R 
J=l TO 18:PRINT A1$;:NEXT J:PRINT A2$ 

300 FOR X=i TO 18:READ A$:PQSITI0N 4,X 
:? A$:READ A*:P0SITION 23,X:? AlsNEXT 
X 

310 X=1:X1=2:P0KE 752,lsP0KE 764,255:P 
0SITI0N 2,22:? "Touch any key, ";N$UP 
$10-9,IPtlO}; 

320 ¥=X:Y1=X1:P0SITIQN XI, X:? CHR4U60 
)j:X=INT{RND(0)tl8)+l:Xl=INT(RND(0)t2) 
119+2 

322 FOR S=X*2+Xl/21+50 TO XJ2+X1/21+42 
STEP -4:SQUND 0,S,10,10:NEXT S:S0UND 
0,0,0,0 

330 IF IP=N AND RND(0)<0.03334 THEN 36 


340 IF IPON THEN B=PEEK(764):IF B<>25 
5 THEN 360 
350 POSITION Y1,Y:? " ";:G0TQ 320 

360 POKE 764,255:JJ=25:F0R 1=1 TO 6+IN 
T(RND<0)*4):F0R J=l TO JJ:NEXT J:JJ=JJ 
+25:P0SITI0N Y1,Y:? " ";:Y=X:Y1=X1 

361 SOUND 0, X*2+XI /21+30, 10, 10: SOUND 
,X*2+X1/21+40,10,10:SQUND 0,0,0,0 

362 POSITION XI, X:? CHRt(160);sIF Xl=2 
THEN X 1=21: GOTO 370 

364 Xl=2iX=X+l:IF X=19 THEN X=l 
370 NEXT I 

380 FOR TI=1 TO 150:NEXT TI:6N=Xt2+INT 
<X1/13)-2:PQSITI0N Y1,Y:? " ";:F0R 1=1 
TO 5:P0SITI0N Y1,Y:? CHR$(160)j 



381 FOR S=10 TO 120 STEP 10:S0UND 0,S, 
10,10:NEXT S:F0R S=110 TO STEP -10:S 
0UND 0,S,10,10:NEXT S 

382 FOR TI=1 TO 30:NEXT TIjPOSITION Yl 
,Y:? " ";:F0R TI=1 TO 30:NEXT ThNEXT 
I: POKE 752,0: RETURN 

390 DATA POKER PARTY, F R T U N E !,S 
WEEPSTAKES!,LDVE A NEIGHBOR,EZ COHE EZ 

GQ,WIN A FEW 
392 DATA SWEEPSTAKES ! , UNLUCKY SEVEN, LO 
SE A FEW 

400 DATA EVEN STEVEN, SWEEPSTAKES !,DAIL 
Y DOUBLE, POT LUCK, HIGH ROLLER, POKER PA 
RTY,LOTTERY,F R T U N E ! 
402 DATA JACKP0T,$100 B0NUS,OFF TO THE 

RACES, SWEEPSTAKES!, LOSE THIS TURN 
410 DATA LOTTERY, F R T U N E !,TAX T 
IHE, BONANZA, LOSE THIS TURN,F R T U N 

E i, SWEEPSTAKES !,HI6H ROLLER 
412 DATA JACKPOT, LOTTERY, HORSE RACE,HA 
D H0NEY,F R T U N E !, LOTTERY 

Graphics initialization. Set up graphics 
variable D$, which is pictures of the six 
dice. 

420 D$=" =+++ t =+++ t =+++ =++ 

+t t=+++ t =+++ t t t =+++ =++H t 

t_t =++ +j_= +++ t_tt_t=+++t_t=+++t_t» 

421 REM Line 420: Non-space characters 
in string are control characters. 

430 REH Above: T=<CTRL> T 
432 REM d=<ESC> <CTRL> = 
434 REH 1=<ESC> <CTRL> t 
450 RETURN 

Sweepstakes routine. Lines 460-480 set 
up the graphics display. Line 490 offers 
optional instructions, which are in lines 
510-530. Lines 540-600 record each 
player's sweepstakes bet in S$(J,J). Line 
620 rolls six dice, displays them, and 
records them in D(X). The highest 
number rolled is stored in HN. Line 630 
checks for pairs, 640-650 for a straight, 
660 for a split, and 670 for single spots. 



460 GRAPHICS 0:? " 
TAKES !":? :? 
rrrHrrrrre* 
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461 REH Line 460: Loner-case letters 

are control characters. 

464 ?" A C E": 
o » i i i» 

466 REH Line 464: Type [SHIFT]* 

1II31COU Ul 

470 ?:?:?:? ' ! 

! !":? "P=Pair B 
D F" 

471 REM Line 470: Type [SHIFTS 
instead of ! 

472 ? S=StraightzrrrrrIrrrrr>irrrrrJrr 
rrrc" 

473 REH Line 472: Loner-case letters 
are control characters. 

4B0 FOR X=l TO 6: POSITION X*6-2,5:? D$ 
I X*17-l&, X*171 1 iNEXT X 

490 POSITION 1,12:? "Do you need 5neep 

stakes instructions ?";:P0KE 764,255 

500 GET 12, B 

510 IF CHR$<B)="N" THEN 540 

512 POSITION 1,12:? "In Sweepstakes ev 

eryone antes $10. Theneach player bets 

on the outcoie of the" 
514 ? "roll of 6 dice. There are thre 
e types of bets.":60SUB 1470 
520 POSITION 1,12:? "One nay is to bet 

on where the highest nueber rolled Hi 
11 appear. If the high"; 
522 ? "nuaber appears in A,B,C,D,E or 
F you sin $300. Letters G,H,I and i 

cover ",■ 

524 ? "two spots. If you bet 6, you c 
over spots A and C and can win $150 

n 

530 G0SUB I470:P0SITI0N 1,12:? "Anothe 

r bet is «P» for pairs. If tuodice 

next to one another tatch, you win"; 

532 ? "$200. The third bet is «S» f 

or a straight. If 3 consecutive di 

ce appear"; 

535 ? "in nuierical order, you win $45 

0. ";0$:GOSUB 1470 

540 FDR 1=12 TO 18:P0SITI0N 1,1:? 0$;: 

NEXT I:P0SITI0N 30,12:? "A-F $300":P0S 



ITI0N 30,13:? "G-J $150" 
542 POSITION 32,14:? "P $200": POSITION 
32,15:? "S $450":F0R 1=1 TO N:H<I)=H( 
I)-10:S$(I,I)=" ":NEXT I 
544 POSITION 10,23:? "Place your bets: 

550 FOR M? TO NiPDSITION l,Xs? N$(JI 
10-9,J$10);" - ";:X=X+1 
560 IF J=N THEN B$=CHR$(65+RND(0)*11): 
IF B$="K" THEN B$="P" 
562 IF J=N THEN 580 

570 GET #2,B:B$=CHR$<B):IF (B$>"3" AND 
B$<"K") OR B$="P" OR B$="S" THEN 580 
572 GOTO 570 

5B0 FOR K=l TO N:IF B$=S$IK,K) THEN 56 


582 NEXT K:PRINT B$;:S$(J,J>=B$:NEXT J 
590 IF IP=1 THEN HN=1:G0T0 620 
592 FOR j=i TO IP-i:P0SITI0N i,X:? N$i 
JtlO-9,J»10);" - ";:X=X+1 

600 6ET #2,B:B$=CHR$<B):IF (B$>"3" AND 
B$<"K") OR B$="P" OR B$="S" THEN 610 
602 GOTO 600 

610 FOR K=i TO N:IF B$=S$(K,K) THEN 60 


612 NEXT KsPRINT B$;:S$(J,J)=B$:NEXT J 
:HN=1 

620 GOSUB 1470:POSITION 1,5:? 0**1,37) 
:? 0$(1,37):? 0$(1,37):F0R X=l TO 6:F0 
R L=l TO 5:D(X)=INT(RND(0!»6+1) 
622 POSITION XJ6-2,5:? D$<D(X)»17-16,D 
(X)*17);:NEXT L:IF D(X)>HN THEN HN=D(X 
) 

624 NEXT X 

628 FOR 1=12 TO 15.-P0SITI0N 30,1:? " 
"pNEXT I 

630 FOR J=l TO N:X=12+(J-IP):IF X<12 T 
HEN X=X+N 

631 POSITION 30,X:? " ";:P0SITI 
ON 14,X:IF S$(J,JX>"P" THEN 640 

632 FOR K=l TO 5: IF D(K)=D!K+1) THEN ? 
"$200 for a pair":H(J)=H(J!+200:K=5:6 

0T0 690 

634 NEXT K:? "Sorry, no pairs! "iGOTO 6 
90 
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640 IF S*W,JK>"S" THEN 660 

642 FOR K=l TO 4:IF D(K)=D(K+1)-1 AND 

D(K)=D<K+2)-2 THEN ? "*450 for the str 

aight":MW)=N(J)+450:60T0 690 

644 NEXT K 

650 ? "No straight !":60T0 690 

660 IF <St(J,J)="G" AND (Dil)=HN OR D! 

3)=HN)) OR <S*W,J)="H B AND (D<3)=HN 

R D(5)=HN)) THEN 668 

662 IF <S*W,J)="I" AND <D(2)=HN OR Df 

4)=HN)) OR (S$U,J)=M" AND (D(4)=HN 

R D(6)=HN>> THEN 668 

664 GOTO 670 

668 ? "*150 for bet on ";S*(J ,J>sM(J)= 

H<J}+150:G0T0 690 

670 IF S*W,J)<="8" OR S$U,J)>="6" TH 

EN 680 

672 K=ASC(S$W,J))-64:IF D(K)=HN THEN 

PRINT "J300 on spot «5S*U,J)iHW)=HW 

) +300; GOTO 690 

674 PRINT "You lose with spot H |S*(J,J 

);:G0T0 690 

680 ? "Haybe next tiaei" 

690 NEXT J 

700 GOSUB 1470: RETURN 

Lottery subroutine. Instructions and 
lottery tickets shown are in line 710. 
Array D(J) Is set to zero. Six dice are 
rolled and displayed. If a number J is 
rolledED(J) is set to 1. Winning tickets 
are evaluated in line 730. Lottery ticket 
count L(l) is set to zero. 

710 6RAPHICS 0:? " L T T E 

R Y":? !? "If both the nuibers on you 

r ticket are* 

712 ? "a«ong the six nunbers rolled, y 

ou will receive $50 for that ticket.": 

? "Here ne go..." 

714 FOR J=l TO NsPOSITION 1,10+J:? N*( 

Jtl0-9,Jtl0);» "jL$(J*9-8,»9-6)|* 
";Lt(J»9-5,J*9-3)5" ";L*W»9-2,Jt 

9) 

716 NEXT J:60SUB 1470 

720 FOR J=l TO 6:D(J)=0:NEXT J:F0R J=l 
TO 6:K=INT(RND(0)t6)+l:P0SITI0N J*6-2 

,7:? D$(KI17-16,K»17)!D(K)=1 



722 NEXT J 

730 FOR 1=1 TO N:IF LW)=0 THEN 738 

731 FOR K=l TO LWhFOR L=l TO 150:NEX 
T L 

732 IF D<VAL(L$W*9+K*3-ll,JmKt3-ll) 
))=1 AND D(vAL(L*Wt9+Kt3-9,J*9+KI3-9) 
))=1 THEN 735 

734 POSITION 10*K*6,10+J:? "— "?:S0UN 
D 0,220, 10, 10-.F0R TI=1 TO 100:NEXT TI: 
GOTO 737 

735 POSITION 10<-Kt6,10+J:? , *50 , ;:HW) 
=H(J)+50:F0R S=30 TO 10 STEP -2:SQUND 
0,S,10,10:F0R TI=1 TO 2:NEXT TI 

736 SOUND 0,255-S,10,10:F0R TI=1 TO 2: 
NEXT TI:NEXT S 

737 SOUND 0,0,0,0:NEXT K:L(J)=0 

738 NEXT J:F0R J=l TO N*9:L*(J,J)=" ": 
NEXT J 

740 GOSUB 1470:F0R J=l TO N*9:L*W,J)= 
" ":NEXT J:L(1)=0:L(2)=0:L<3)=0:RETURN 

Horse roace routine. The picture of a 
horse Is In H$ in line 750. Heading and 
instructions are In lines 750-760. 
Horizontal position Is In array D(K). Each 
of six horses is randomly advanced by 
Incrementing its print position. When 
D(K) approaches the end of the screen in 
line 780, the winner is announced In 
lines 790 and 800. 

750 GRAPHICS OsPOKE 752,1:H*=" _ u=+ 
+t++ u.'tFOR J=l TO 6:DW)=10:P0SITI0 
H 2,J*3+1:? Jj" ";H*;:NEXTJ 

751 REN H$ is typed as:[sp}[shift-]tsp 
3Csp][ctrlU3[esc][ctrl=](5 tiaes:Cesc3 
Ectrlt3)Csp] [5p3CctrlU3Csp3 

752 FOR J=l TO N:P0SITI0N 1,J»3+1:PRIN 
T N$(JtlO-9,J*10>i:H(J)=HW)-20:NEXT J 
:P0SITI0N 6,0:? "HORSE RACES 

754 FDR Y=l TO 6:P0SITI0N 3B,¥t3+li? ■ 
."pNEXT Y 

760 POSITION 1,21:? "Everyone has bet 
$20, the winner Hill receive $100. ":G 
0SUB 1470 

770 SOUND 0,250,8,10:S0UND 0,240,B,10: 
SOUND 0,255,8, 10:S0UND 0,0,0,0 
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780K=INT(RND(0)t6)+l:D(K)=D<K)+l:P0SI 

TION D(K),K!3+1:? H$;:IF DCKX33 THEN 

770 

790 POSITION 1,21:? 01(1, 38);:? Q*(l,3 

8);:? 01(1,38) ^POSITION 1,21:IF K>N T 

HEN 794 

792 ? N$(K*10-9,K»10);" s ;5fi(Ki=H(K)+l 

00: GOTO 800 

794 SOUND 0,0,0,0:? "Horse nuiber "fKj 

h a, 
I 

800 ? "wins this race!":GOSUB 1470:P0K 
E 752,0:RETURN 

Fortune teller routine. The fortune 
teller's messsage Is chosen at random 
In lines 810-880, and Is displayed In lines 
900-920. 

810 «*": GRAPHICS 0: POSITION 7,4:? "T, 

HE FORTUNE TELLER SAVS: B ;K=liH=10tINfT 

RND(0)l5+l)+50 

820 IF RND<0)<0.2 THEN H$="Hold a S*ee 

p5takes. n :K=2:G0TO 890 

830 IF RND(0)<0.2 THEN H*="Hold a Lott 

ery.":K=3:G0T0 890 

840 IF RND!0)<0.5 THEN rl*="Collect fro 

e ":K=-1:G0T0 850 

842 H*="Pay to " 

850 J=INT(RND(0)»(N+1)+1):IF JOIP THE 

N 860 

852 Ht(LEN<H*)+l)=»everyone":H(IP)=H<I 

P)-KMttH:FOR J=l TO N:H(J)=H(J)+K»M:NE 

XT J: GOTO 880 

860 IF J=N+1 THEN H$(LEN1H*)+I)="the b 

ank":H(IP)=H(IP)-K*N:GOTO 880 

870 N$(LEN(H*)+l)=N*(J*10-9,Jtl0):H(IP 

)=H(IP)-KtH:H(J)=H(J)+K»r1 

880 H$<LEN(I1$X1)=" ":H$(LEN<H$)+1)=ST 

R$(N):H*(LEN(H*)+1)=" dollars." 

890 QQ=0 

900 FOR TI=LEN(H$) TO 1 STEP -1:«*(TI+ 
44,TI+44)=H$(TI,TI):NEXT TI:H* ( 1 ,32) =0 
*(l,32):«$(33,42)=Nt(IPtl0-9,IPtl0) 

901 N*(43,44)=", ":r1*(LEN(H$)+l)=0$U, 
32) 

902 FOR M TO LEN(Ht)-31t80UND 0,200, 
8,10:P0SITI0N 5,6:? H*(J,J+3O)pS0UND 



0,0,0,0:FOR TI=1 TO 5:NEXT TIiHEXT JsH 

910 GOSUB 1470 
930 IF K=2 THEN 460 
932 IF K=3 THEN 710 
934 RETURN 

High roller game. Instructions are In line 
940; all roll two dice In line 950. High roll 
Is determined in lines 960 and 970. 
Single winner is announced In line 980; a 
tie causes a re-roll in lines 990-1010. 

940 GRAPHICS 0:? "H I 6 H R L L E 
R — Everyone antes S20 and rolls 

two dice. The" 

942 ? "highest roll takes the $100 pri 
ze. To roll dice, touch any key on yo 
ur turn.": GOSUB 1470 
950 FOR J=l TO N:H(J)*HU)-20.P0BITI0N 

1,2+JI3:? N*<JilO-9,JtlO):Xl=12+fJ-IN 
T(J/2)t2)M:X=2+Jt3:G0SUB 1450:DU)=K 
952 X1=X1+8:G0SUB 1450:D(J)=D(J)+K:P0S 
ITI0N 2B,X:? "Total is ";D<J)pNEXT J 
960 HN=D(l):H«=liF0R J=2 TO N:IF D(J)> 
HN THEN HN=D(J):HH=J 
962 NEXT J 

970 K=0sFQR J=l TO N:IF D(J)=HN THEN K 
=K+1 

972 NEXT J 

980 IF K=l THEN POSITION 1,20:? N$(HHt 
10-9,HH!10);" wins the poti":H(HH)=N(H 
N)+100:P0KE 764,255:60SUB 1470:RETURN 
990 POSITION 1,20:? "We've got a tie! 

Those high rollers will roll again! 
":P0KE 764,255:60SUB 1470 
992 POSITION 1,5: FOR J=l TO 18:? 0$;:N 
EXT J 

1000 FDR J=l TO N:X1=14:X=2+3W:IF D(J 
XHN THEN D(J)=0:NEXT JiBOTO 960 
1002 POSITION 1,X:? N*(Jtl0-9,Jll0):Xl 
=12+!J-INT(J/2)t2)M:G0SUB 1450:D(J)=K 
:X1=X1+8:G0SUB 1450 

1004 D(J)=D(J)+K:P0SITI0N 28,X:? "Tota 
1 is ";D(J);5X=X+3:NEXT J 
1010 60T0 960 
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Poker party subroutine. Instructions are 
In line 1020. Three dice are rolled In line 
1030 for all players. Check for three of a 
kind in line 1040; for pairs In 1050; for 
straights In 1070. Winner Is announced 
In 1120. A tie causes the routine to 
restart. 

1020 BRAPHICS Oi? "P K E R PART 
Y — Each player pays $20 and rolls 
three dice. The" 

1022 ? "best poker hand":? "(Three of 
a Kind > Straight > Pair) wins $100 
. Touch any key to roll dice,"; 
1024 GOSUB 1470:XX=6:F0R 1=1 TO NsH(I) 
»H(I)-20:NEXT I:HM=0 
1030 FOR 1=1 TO IMPOSITION 1,XX:? N$(I 
110-9, ItlOhFOR N=l TO 3s J=I: Xi=9+M*6: 
X=XXiPDKE 764,255:B0SUB 1450:D(H)=K 
1032 NEXT M:P(I)=0 

1040 FOR TI=1 TO lOOsNEXT TI:F0R TI=X 
TO XX+2:P0SITI0N 11,TI:PRINT 01(1,28); 
:NEXT ThPOSITION 13,XX 

1041 ? D<1);" ";D(2); fl B ;D(3);" "; 

1042 IF D(1)=D(2) AND D(1)=D!3) THEN ? 
"Three of a kind!";:P(I)=30+D(l):60TQ 
1100 

1050 IF D(1)=D(2) THEN P(I)=10+D(1) 

1052 IF D(t)=D(3) THEN P(I)=10+D(1) 

1054 IF D(2)=D(3) THEN P(I)=10+D(2) 

1060 IF P(I)>0 THEN PRINT "A pair. iH ;:6 

OT0 1100 

1070 FOR J=l TO 3: IF (D(1)=D(2)+1 AND 

D(l)=D<3)+2) OR (D(t)=D(2)-l AND D(l)= 

D(3)-2) THEN P(I)=20:B0T0 1080 

1072 HN=D(1)!D(1)=D(2):D(2)=D(3):D(3)= 

HN:NEXT J 

1080 HN=D(1):F0R J=2 TO 3s IF D(J)>HN T 

HEN HN=D(J) 

1082 NEXT J 

1090 P(I)=P(I)+HN:IF P(I)>20 THEN PRIN 

T "A straight !";:60T0 1100 

1092 PRINT "Highest roll is a ";P (I); 

1100 XX=XX+2:IF P(I)>HH THEN HN=P(I) 

1102 NEXT I 

1110 K=0iF0R 1=1 TO N:IF P(I)=HH THEH 

K=K+1:J=I 



1112 NEXT I 

1120 IF K=l THEN POSITION 1,20:? N*(J* 

1Q-9,J*10);" wins the pot of $100":H(J 

)=H(J)+100:B0SUB 1470:RETURN 

1122 POSITION 1,20:? "He have a tie .. 

. so let's all play another hand!": 

BOSUB 1470: 60T0 1020 

Love thy neighbor routine. Set the 
message In line 1150; adjust money in 
line 1160; jump to display routine In line 
890. 

1130 BRAPHICS 0:K=0:H=INT(RND(0)*5+l)i 

10+50 ' 

1140 J=INT(RND(0)*N+1):IF J=IP THEN 11 

40 

1150 H$="Show that you are a good neig 

hbor and give ":H$(LEN(H$)+1)=N*!J*10- 

9,J*10):H$(LEN(H*)+1)=" ■ 

1152 H$(LEN!H$)+l)=STR$!N)iH$(LEN(H*)+ 

1)=" dollars. " 

1160 N(IP)=H(IP)-H:«(J)=H(J)+H:B0T0 89 



Easy come, easy go. Give Instructions 
and roll two dice in line 1170. Adjust 
money. 

1170 BRAPHICS 0:? "E A S V C H E 
EASY 6 -- The bank Bill pay 
you 10 tines the roll"; 
1172 ? "of 2 dice. Touch any key to r 
oil dice,°;N*(IP*10-9,IPtl0):B0SUB 147 
0:J=IP:X1=15:X=6:60SUB 1450:H=K 
1174 X1=X1+6:B0SUB 1450:N=(H+K)*10:H(I 
P)=N(IP)+H 

1176 POSITION 7,10:? "You win ";«;" do 
liars." 
1180 BOSUB 1470: RETURN 

Short messages routines. Simple 
procedures to handle special routines: 
Win A Few (1190), Unlucky Seven (1200), 
Lose A Few (1230), Even Steven (1240), 
Pot Luck (1300), Jackpot (1310), $100 
Bonus (1320), Lose A Turn (1330), Tax 
Time (1340), Bonanza (1350), and Mad 
Money (1360). 

1190 GRAPHICS 0:? "H I N A FEB 
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— The bank Hill payyou ten tiees the 
roll of one die." 

1192 ? "Touch any key to roll die, *?N 
$(IP*10-9,IPU0):60SUB 1470: J=IPs 1(1*18 
:X=6:G0SUB 1450:H=K*10:N(1P)=H(IP)+H 
1194 GOTO 1176 

1200 GRAPHICS 0:? "U N L U C K Y S E 

V E N -- Roll two dice. If the tota 
1 is seven you lose" 
1202 ? "$100. For any other total, yo 
u «in $100. Touch any key to roll 
dice,":? N$iIP*10-9,IPM0):60SUB 1470 
1204 J=IP:X1=15:X=6:6QSUB 1450:H=K:X1= 
XH6:60SUB 1450:H=H+K 
1210 POSITION 7, 10: IF H=7 THEN ? "You 
lose 100 dollars!":H(IP)=H!IP)-100:60T 
1220 

1212 ? "You win 100 dollar5!":N(IP)=HI 
IP) +100 

1220 60SUB 1470:RETURN 
1230 GRAPHICS 0:? "L S E A FEB 

— You aust pay the bank ten tiies 

the roll of one die."; 
1232 ? "Touch any key to roll die,":? 
N$(IP»1Q-9,IP*10):60SUB 1470:J=IP:X1=1 
8:X=6:GDSUB 1450:H=K*10 
1234 H(IP)=M(IP)-H:P0SITI0N 7,10:? "Yo 
u lose ";H;" dollars.^GQSUB 1470:RETU 
RN 
1240 GRAPHICS 0:? "EVEN STEVE 

N — You lay bet up to $90 and roll 

two dice. If the" 

1242 ? "total is even, you collect twi 
ce your bet. Touch any key to roll d 
ice." 

1244 ? N$(IPtlO-9,IPtlOh? "Hon such h 
ill you bet ? »$:J=IP:IF IP=N THEN B=5 
4+INT(RND(0)l4):60T0 1260 
1250 GET I2,B:IF B<49 OR B>57 THEN 125 


1260 H=(B-48)U0:? H;" dollars":G0SUB 
1470 

1270 X1=15:X=7:GDSUB 1450:P^K:Xl=Xl+6s 
G0SUB 1450:P=P+K 
1280 POSITION 7, 11: IF INT(P/21I2=P THE 



N ? "You oin B |2IHj u dollars. B :HUP)*H 

<IP)+2tHs60TG 1290 

1282 ? "You lose "jH;" dollars.":H(IP) 

=H(IP)-H 

1290 G0SUB 1470: RETURN 

1300 GRAPHICS 0:H=10*INT(RND(O)*5-t-l)+l 

0:H(IPt=H(IP)-H:H$="«hy don't you sxee 

ten the pot by giving the bank * 

1302 H$!LEN(H$)+1)=STR$(H):H$(LEN<H$)+ 

1)=" dollars. ":K=0:G0TQ 890 

1310 GRAPHICS 0:H=10$INT(RND(0)t5+l)+5 

0:H$="You hit the Jackpot! Collect "s 

H$(LEN(H$M)sSTR$IN) 

1312 H$<LEN(H$)+1)=" dollars.":K=0sH(I 

P)=H(IP)+H:GOT0 890 

1320 GRAPHICS 0:H(IP)=H(IP)+100:H$="P1 

ease accept this $100 bonus! ":K=0: GOTO 

890 
1330 GRAPHICS 0sH$="You just lost this 

turn!":K=0:60T0 890 
1340 GRAPHICS 0:fi$="Pay $100 tax to th 
e bank!":H(IP)=H(IP)-100:K=0:60T0 890 
1350 GRAPHICS 0:H=INT(RND<0)t5+l)$10:H 
(IP)=H(IP!+H$N:F0R J=l TO N:H(J)=H(J)- 
HsNEXT J 

1352 H$ s "Nhat a Bonanza! Everyone pay 
s you ":H$(LEN!N$)+l)=STR$(H);H$(LENfN 
$1+1)=" dollars. ":K=0:60TQ 890 
1360 GRAPHICS 0:H=INT(RND(0)t5+l)S10:H 
(IP)=N(IP)-«tN:F0R J=l TO N:H(J)=N!J)+ 
H:NEXT J 

1362 H$="This ought to sake you nad. 
Give everybody ":H$(LEN(M$!+1)=STR$(H) 
:H$(LEN(H$>+1)=" dollars. "sK^GOTO 89 


instructions. 

1370 GRAPHICS 0:? "This is the gaae of 
GAHBLER!":? :? "You and the Atari are 
in a contest to" 

1372 ? "see who Bill build his $100 ba 
nkroll into $1000 first. Honey is s 
ade and" 

1374 ? "lost through a series of gases 
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of chance ~ froi horse racing a 

nd dice" 

1380 ? "gaaes to lotteries and stieepst 
akes! If you should lose all your ■ 
oney, your" 

1382 ? "IOU Hill be accepted (as long 
as you pay it back with interest).": 
? :? " 60QD LUCK! ':K=0iGDT0 

910 

Utility subroutines. Lines 1540-1460 wait 
for input before stopping on one of the 
six dice at screen position X1, X. The 
computer's dice choice is made in line 
1450. Lines 1470 and 1480 print a 
message a wait for keyboard response. 

1450 POKE 764, 255: S=PEEK (752): POKE 752 
,1 



1452 IF JON THEN 1460 

1454 FOR L=l TO RND(0)*50tl:K=INT(RND( 

0)16+1) POSITION XI, X:? D$(K*17-16,KI1 

7);:P0KE 53279,RND(0)M:NEXT L-.60T0 14 

62 

1460 B=PEEK(764);K=INT(RND<0)t6+l):P0S 

1TI0N XI, X:? D$(Ktl7-16,KU7);:P0KE 53 

279,RND(0)t4:IF B=255 THEN 1460 

1462 POKE 764,255:P0KE 752,S:RETURN 

1469 STOP 

1470 POKE 764,255:P0SITI0N 1,23:? " 
Touch any key to continue"; 

1475 IF RND(0)<0.11 THEN S=RND(0)l70+3 
0:F0R TI=S TO S-8 STEP -4:S0UND 0,TI,1 
0,10:NEXT TI.-SQUND 0,0,0,0 
1480 IF PEEK (764) =255 THEN 1475 
1482 POKE 764, 255: POSITION 6,23:? ■ 
";:RETURN 
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by Ray Sato 

Atari version by Rich Bouchard 

Operation: Sabotage is an adventure 
game for an Atari 400/800 with 24K 
RAM (tape) or 32K (disk). 

It is the year 2101 and war has 
broken out between Earth and the dis- 
tant planet Zekloke. This alien power 
has established a large military com- 
plex on Mars which will soon become a 
great danger to Earth. Hidden in the 
massive installation are several secret 
documents containing the plans for an 
incredible defense shield — strong 
enough to stop an entire fleet of 
spacecraft. 

You are a special agent and have just 
succeeded in sneaking into the alien 
complex. Your mission is to destroy 
this threat to mankind and return with 
plans for the powerful defense shield. 
The outcome of this mission will decide 
the fate of mankind. 
Playing Notes 

The computer will always give you a 
brief description of where you are, 
what objects you can see, and what ex- 
its are visible. You move and act by 
typing in simple commands, generally 
consisting of a verb and a noun. If the 
computer tells you that there is a laser 




Encryption modifications by Rich 
Bouchard, William Kubeck, and Alan 
J, Zett 

pistol in the room, for example, you 
might want to type in the command 
"GET PISTOL". At a later time, you 
might be able to use it to "SHOOT 
MONSTER" or for some other pur- 
pose. If you no longer want to carry it, 
you can "DROP PISTOL" whenever 
you please. Since the computer looks 
only at the first three letters of the verb 
and the last three letters of the noun, 
you may use abbreviations such as 
"SHO TER" (for "SHOOT 
MONSTER") if you desire. Movement 
is accomplished by entering just a 
single letter rather than a two-word 
command: N, S, E, or W for north, 
south, east.or west. Typing the single 
word "INVENTORY" (or "INV") 
will display a list of what you are carry- 
ing. Typing "STATUS" (or "STA") 
will give you a readout of your current 
physical condition. 

Part of the challenge of any adven- 
ture game such as Operation: Sabotage 
is to figure out what you are able to do 
in a particular situation. Therefore, 
you will not find a list of all the verbs 
the computer can understand, or of all 
the objects you may discover. You 
might find yourself frustrated by what 
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seem to be dead-ends, and end up get- 
ting killed in the process. This is all 
part of the adventure, and a test of 
your ingenuity and perseverance. 
Program Notes 

The most obvious feature of the pro- 
gram listing is that most of it looks like 
a cryptogram. The BASIC keywords 
are all in their usual form, but the 
string assignment statements and 
DATA lines are incomprehensible. 
This is because all of the room descrip- 
tions, object names, monsters, and 
verbs have been encoded. This has 
been done to preserve the value of the 
game. Anyone who types an adventure 
program in from a listing is bound to 
be disappointed in the game's 
playability, since he has gained so 
many clues about the plot. So, even 
though the typing is made slightly dif- 
ficult by the scrambled words, this is 
the only reasonable way of publishing 
adventure programs in listed form. We 
have also omitted the usual list of 
variables for the same reasons. The 
variable descriptions give away too 
much information and the encoding of 
the program reduces the usefulness of a 
variable list. 



The encryption method is a simple 
one, which results in leaving punctua- 
tion unmodified, and inverting the 
order of the letters of the alphabet. 
This simple inversion process has the 
advantage of using the same routine to 
decode the text as was used to encode 
it. In Operation: Sabotage, the user's 
input is encoded, the internal searches 
and comparisons are done in encoded 
form, and the response is decoded and 
printed by the subroutine at line 5. 
SWAT 

In order to offset the proofreading 
problems created by this approach, we 
have included an expanded SWAT 
Table for this program. Instead of the 
normal 12-line/500-byte SWAT 
parameters, we have used 5-line/200- 
byte parameters. This means that you 
must modify the first line of the SWA T 
program in order to generate a table to 
compare with ours. After merging 
SWAT in the normal manner, but 
before running it, simply edit or retype 
line 32000, changing "NU = 12: 
B = 500" to "NU = 5: B = 200". This 
will provide an expanded SWAT 
Table, enabling you to pinpoint typing 
mistakes more easily. 



SS SS SS SS SS SS SB SS SS SS S3 
SS SS 

SS Atari BASIC SS 

SS 'Operation Sabotage' SS 
SS Author: Ray Sato SS 

SS Translator: Rich Bouchard SS 
SS Copyright (c) 1982 SS 
SS SoftSide Publications, Inc SS 
SS SS 

SS S3 SS SS SS SS SS S3 SS SS SS 

Jump to program Initialization. 

1 GOTO 2620 

Decode and print output. 

4 IF PI*" THEN RETURN 

5 FOR P=N1 TO LEN(PI):? CHRt(ABS(il55* 
(P$(P)>"3"})-ASC(P*!P))));:NEXT Pi? :R 
ETURN 



Encode input. 

6 V*="":IF V0$=" a THEN RETURN 

7 FOR im TO LEN(v0*):V*<LEN(v«)+Nl)= 
CHR*(ABS((155«(V0$y)>"3"))-ASC(V0*y) 
DhNEXT JsRETURN 

Auxiliary Jump points. 

8 60SUB N4:B0T0 2520 

9 60SUB N4:B0T0 LI 
Descriptions of individual rooms. 

10 A*="ZH ZRIOLXP. BBVIV RH Z YOFV 
YFG6LH SVIV 8 :S=N2:RETURN 

20 fi$="Z HZIILD XLIIRWLI":N=N1:S=N3:RE 
TURN 

30 A$="Z HZIILD XLIIRHLI":N=N2:S=N4;RE 
TURN 

40 A*s°Z NZIILD XLIIRHLI B :N=N3:S=N5sRE 
TURN 
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50 A$="Z HNZOO ILLN" :N=N4:S=6: RETURN 

60 A*="Z HVXLH8ZNRHZ6RLM XSZNYVI":B«- B 

8SVIV RH Z YOFV YFGGLH SVIV°:N=N5:S=7: 

RETURN 

70 A*= B Z HNZOO HGLIZTV XSZNYVI" :N=6:S= 

N8:H= 12: RETURN 

80 At= B Z HNZOO XSZNYVI":N=7:S=N9:»=13: 

RETURN 

90 A*="Z HNZOO VOVXBILHRX OZYL 

IZ8LIB-:N=NB:S=10:H=I4:RETURN 

100 A*="Z YRLOLTRXZO OZYLIZGLIB. GSV 

IV RH Z IVM YF6GLH LH GSV DZ00 B :N=N9:B 

=15: RETURN 

110 A$="Z HGLIZTV XSZNYVI B :B=16:RETURN 

120 A$="Z OZITV XSZNYVI. GSVIV RH Z X 

ZYRHVG SVlV"sS=13:«=17:E=7:RETURN 

130 A*="Z HBIZWTV KFIKOV ILLN. GSV 

IV RH Z YOFV YFSGLH SVIV':N=12:S=14:W= 

18:E=N8:RETURN 

140 At="Z HNZOO LUURXV B :N=13:S=15:E=N9 

: RETURN 

150 At="Z HNZOO ILLN ORGS Z XZIH GZY 

OV RH GSV XVH6VI":N=14:S=16:H=20:E=10: 

RETURN 

160 A$="Z OZITV LUURXV. GSVIV RH ZHVH 

P SVIV:N=15:H=21:E=11:RETURN 

170 A*="Z LUURXV DRGS Z OZITV HVHP":S= 

18:E=12:RETURN 

180 A$="Z HGLIZTV ILLN":N=17:S=19:E=13 

: RETURN 

190 A$="Z OZITV SZOD" : N=18: S=20: RETURN 

200 At="ZH VHGVIGZRHNVNG ILLN. Z HXI 

VVN IVHGH LH GSV DZOO":B$="GSVIV RH Z 

YOFV ZHH Z IVN YFG6LH HVZI GSV HXIVVH" 

202 N=19:S=21 : E=15: RETURN 

210 A*="Z HZGZ IVXLIW HGLIZTV ILLN":N= 

20:E=16:RETURN 

220 A*="IZWZI XLNSILO. 6SVIV RH Z HNZ 

00 HXIVVH SVIV":S=23:H=27:RETURN 

230 A*= B Z NVHRXZO H6ZGRLH. GSVIV RH 

Z OZITV 6ZY0V SVIV":N=22:S=24:W=28:RET 

URN 

240 A*="Z HVXFIRGB HGZGRLH":N=23:RETUR 

N 

250 A$='Z IZHRL ILLN" :S=26:H=30; RETURN 



260 A$="Z HNZOO ILLN. 6SVIV RH Z HZU 
V RH GSV HLFGS DZ0Q":N=25:H=31s RETURN 
270 A*="6SV ILYLG XLHGILO XVH6VI. GSV 
IV RH Z HNZOO XLHGILO XLNKFGVI NLF 
HGVW RH GSV DZ00":B*= 8, :W=32:E=22 
272 RETURN 

280 A*="GSV DVZKLHH HGLIZTV ILLN":S=29 
:H=33:E=23:RETURN 

290 A*="Z 0RYIZIB":N=28:B=30:«=34;RETU 
RN 

300 A*="Z HVXFIRGB XSVXP ZIVZ B :N=29:H= 
36: E=25: RETURN 

310 A*="Z HNZOO ILLN DRGS Z HVHP. Z H 
RTH IVZHH" 

312 B$="'KIVHHFIV GL IVZXGLI.' Z YOFV 
YFGGLH RH QLXZGVW FHHVI GSV HRTH°:E=2 
6: RETURN 

320 A*="OZFHXS XLHGILO. GSVIV RH ZHVH 
P SVIV:S=33:(J=37:E=27:RETURN 
330 A*="Z HNZOO XLIIRHLI":N=32:S=34:E= 
28: RETURN 

340 A*="Z H6IZHTV YOFV ILLN. GSVIVRH 
Z IVW YFGGLH SVIV":N=33:S=35:E=29:RETU 
RN 

350 A$="Z GRHB HGLIZTV ILLN°:N=34:«=40 
: RETURN 

360 A$="Z HNZOO XSZNYVI. Z HLLI BVH 
G OVZBH GL GSV HFXOVZI !VZXGLP:E=30:R 
ETURN 

370 At= B Z HNZOO, HZIILD XLIIRHLI H :N=42 
:E=32: RETURN 

380 A$="GSV XLNKFGVI XVHGVI. GSVIVRH 
Z HNZOO HOLG RH GSV XLNKF6VI":S=39:RET 
URN 

390 A*="GSV XSVNRXZO QZY.":N=38:S=40:R 
ETURN 

400 A*="GSV IVZXGLI XLHGILO XVHGVI. GSV 
IV RH Z YOFV YFGGLH ZHW Z IVH LHV. Z H 
RTH HZBH IVZXGLI XLHGILO - " 
402 A*fLEN(At)+Nl)="IVN=LH, YOFM.UU": 
N=39:E=35: RETURN 

410 At= B GSV HFXOVZI IVZXGLI. Z XLN 
KFGVI IVHGH LH GSV DZ00":E=36:RETURN 
420 A*="GSV OVHS VHH LU Z OLHT XLI 
IRHLI":S=37:EM3:RETURN 
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430 A*="BSV VZHG VHH LU Z OUT XLI 

IRHLI " : H=42sE=44: RETURN 

440 A*="Z HVXF1RBB XVHSVI H :«M3:E=45sR 

ETURN 

450 A*="Z HNZOO OZFNXS ZIVZ":B$="SSVIV 
RH Z HNZOO HOLG HVCG 6L 6SV OZFHX 
STZGV":H=44;RETURN 

Extended descriptions. 

460 REM 

470 IF A=10 AND (D3=N1 OR D3=N2) THEN 
Ct="GSV NLHHBVI'H XZTV RH LKVH" 
480 IF A=12 AND D5=N0 THEN Ct="GSV XZY 
RNVG RH QLXPVW 

490 IF A=12 AND D5=N1 THEN C$="6SV XZY 
RHVG RH LKvN' 

500 IF A=20 AND D6=N0 THEN C*="GSV HXI 
VVH RH YOZHP" 

510 IF A=20 AND D6=N1 THEN C*="Z NLERV 
RH YVRHT KOZBVH LN GSV HXIVVH" 
520 IF A=26 AND D9=N0 THEN C$="6SV HZU 

V RH QLXPVM" 

530 IF A=26 AND D9=N1 THEN C*="6SV HZU 

V RH LKVH" 

540 IF A=27 AND E2=N0 THEN Ct="GSV XLN 

KFGVI RH ZXGREV 

550 IF A=27 AND E2=N1 THEN C$="6SV XLN 

KGVI RH WVHGILBVH 8 

560 IF A=36 AND E6=N0 THEN C$= d 6SV IVZ 

XGLI HLLI RH URINOB OLXPVM' 

570 IF A=36 AND E6=N1 THEN C*="GSV IVZ 

XGLI HLLI RH LKVtT:W=41 

580 IF A=45 AND E9=N0 THEN Ct= B GSV OZF 

NXS TZGV RH XQLHVW" 

590 IF A=45 AND E9=N1 THEN C*="GSV OZF 

NXS TZGV RH LKVH":E=46 

Generate the list of visible items and 
available exits. 

600 At(LEN(A$)+Nl}=\":IF LEN!B*)>N3 T 

HEN Bt(LEN(B«)+Nl)="." 

610 IF LEN«C*)>N3 THEN «<LEN(C*)+N1)= 

n b 

« 

650 IF NONO THEN E$=°HLIGS " 

660 IF SONO THEN E$(LEN(Et)+Nl)="HLFG 

S " 



670 IF «>N0 THEN Et(LEN<E*)tNl)="DVHG 

B 

680 IF E>N0 THEN E*(LEN(E$)+N1)="VZHG 

690 IF E*<>"" THEN E*=Et(Nl,LEN(E$)-Nl 
) 

Describe current location, visible items, 
and available exits. 

700 GRAPHICS NOsPRINT "YOU ARE IN ";sP 

*=A*:G0SUB N4: PRINT :IF B$<>"" THEN P* 

=B$:G0SUB N4 

710 IF C*<>"" THEN P$=»:G0SUB N4 

720 P$=" "sPRINT :PRINT " OBJECTS YOU C 

AN SEE; ": FOR T=N1 TO 16 

722 IF A=KT) THEN P*=I$(IP(T),IP(T+N1 

)-Nl!iG0SUB N4 

730 NEXT T:IF Pt=" " THEN P$="HLGSRHT" 

:60SUB N4 

732 ? :? " EXITS; "sP«=E$:G0SUB N4:? 

740 IF <A=40 OR A=35 OR A=30 OR A=31) 

AND H14)=N0 AND F3=N0 THEN P*="GSV HN 

ZOO YOZXP HVERXV RH YORHPRNT"iGOSUB N4 

750 IF A=36 AND I(N4)=N0 AND F3=N0 THE 

N P*= a GSV HNZOO YOZXP WVERXV RH UOZHSR 

!1T YIRTSGOB-sBOSUB N4 

760 IF F4=N0 THEN 770 

762 P*="GSV XLNKFGVI HZBHs'sGOSUB N4;P 

$=STR$(F4):P$(LEN(P$)+N1)= 8 NRNF6VH FN 

GRO HVHGIFXGRLN":GOSUB N4 

770 IF D3=N1 THEN PRINT :P*="t * I ZOR 

VN NLHHGV1 ZGGZXPRHT » I I"j60SUB N4 

780 IF D7=N1 OR E0=N1 OR E3=N1 OR E7=N 

1 THEN PRINT :P*="» * t HVXFIR6B KZGIL 

ZGGZXPRHT * t f:GOSUB N4 

Get and interpret command. 

790 PRINT : PRINT " COMMAND "; : INPUT V0$: 
GOSUB 6:PRINT 

800 FOR T=N1 TO N4sIF V*=VB*(TtN3-N2,T 
4N3-N2) THEN V*=VB*(T»N3-N2,T*N3) 
810 NEXT T 

820 IF LEN(VtXN3 THEN 700 
830 Vl*=V*fNl,N3hV2*=V*(LEN<V*)-N2) 
840 FOR T=N1 TO 17; IF Vl*=VB$(TtN3-N2, 
TtN3) THEN V1=T 
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850 NEXT TsIF Vl=NO THEN P*="R HLH'G F 

HHVIH6ZHH DSZ8 BLF DZM6.":6QSUB N4:60T 

LI 

860 FOR T=N1 TO 16:IF V2$=I*(IP<T+N1>- 

N3, IPiT+ND-Nl) THEN V2=T 

870 NEXT T 

880 ON VI GOTO 900,940,980,1050,1130,1 

310, 1370, 1390, 1560, 1620, 1660, 1790, 1860 

,1910,2010,2170,2250 

890 GOTO LI 

Handle commands. 

900 IF N=N0 THEN SOTO L2 

910 IF D3=N1 THEN Pt="6SV NLHH6VI YOLX 

PH GSV VCRG a :60SUB N4:G0T0 L2 

920 IF D7=N1 OR E3=N1 THEN GOTO L2 

930 A=N:G0TO LI 

940 IF S=NO THEN 60T0 L2 

950 IF S=24 AND D8ON0 AND E20N1 THEN 

D7=N1:S0SU8 L4 
960 IF 8=30 AND E4ON0 AND E20N1 THEN 

E3=N1:G0SUB L4 
970 A=S:G0T0 LI 
980 IF H=NO THEN 60TD L2 
990 IF D3=N1 THEN P*="6SV NLHHGVI YOLX 
PH GSV VCRG":GOSUB N4:G0T0 LI 
1000 IF E0=N1 OR E3=N1 OR E7=N1 THEN 8 
OTO L3 

1010 IF «=41 AND F3=N0 THEN P*="IZHRZB 
RLM UILN 6SV IVZXGLI SRGH BLF":GOSUB N 
4: GOTO 2520 

1020 IF H=30 AND E4ON0 AND E20N1 THE 
N E3=N1:G0SUB L4 

1030 IF N=27 AND E8ON0 AND E20N1 THE 
N E0=N1:80SUB L4 
1040 A=H:GQTO LI 
1050 IF E=N0 THEN GOTO L2 
1060 IF E0=N1 OR E3=N1 OR E7=N1 THEN G 
OTO L3 

1070 IF E=27 AND E1ON0 AND E20N1 THE 
N E0=N1:G0SUB L4 

1080 IF E=44 AND E8ON0 AND E20N1 THE 
N E7=N1:GDSUB L4 
1090 A=Ei60T0 LI 
1100 P$=»GSV HVXFIRGB TFZIH YOLXPH 6SV 

VCRG":GOSUB N4:6QT0 LI 



1110 Pt="6SVIV RH ML DZB GL TL GSZG MR 

IVXGRLH":60T0 N9 

1120 Pt="Z HVXFIRGB ZHWILRH ZDZR6H BLF 

":GOSUB N4: RETURN 

1130 IF AON1 OR V2$<>"LXP' THEN 1140 

1132.P*="GSV ZRIOLXP LKVHH ZHH BLF ZIV 

YOLDM LFG RHGL GSV EZXFFN LU HKZXV" 
:GOSUB N4:G0T0 2520 
1140 IF A<>12 OR V2*<> a MV8' OR D5ON0 
OR I(N2)=N0 THEN 1150 
1142 P$="BLF OFHG ZIVM'G H6ILHT VHLFTS 

GL ULIXVR6 LKVH":GOSUB N4:G0T0 LI 
1150 IF A<>12 OR V2*<>"HVG" OR D5ON0 
OR I(N2)ON0 THEN 1160 
1152 Pt="6SV XILDYZI SVOKVH. GSV XZYR 
HVG RH HLD LKVH":60SUB N4:D5=N1:KN5 
)=ABS(I(N5)):G0T0 LI 
1160 IF A=12 AND V2*="HVG" AND D5=N1 T 
HEN P$="GSV XZYRHVS RH ZOIVZHB LKVN":6 
OSUB N4:B0T0 LI 

1170 IF A=16 AND V2*="VHP" THEN ? 0K$: 
I<6)=ABS<I(6)JsGQT0 LI 
1180 IF A=17 AND V2$="VHP" THEN PRINT 
0K*:I(7)=ABS(n7)):G0T0 LI 
1190 IF A=26 AND V2$="ZUV" AND D9=N1 T 
HEN P$="6SV HZUV RH ZOIVZWB LKVIT:60T0 

N4:60T0 LI 

1200 IF A=26 AND V2t="ZUV AND D9=N0 T 
HEN P$="R HLH'6 SZEV GSV PVB 6L LKVH G 
SV HZUV": GOTO N9 
1210 IF A=31 AND V2$="VHP° THEN Pt="LP 

BLF URHW HLGSRHT RHHRHV":GOTO N9 
1220 IF A=32 AND V2$="VHP» THEN PRINT 
0K$:I(14)=ABS(I(14))!60T0 LI 
1230 IF A=36 AND V2t="LLP AND E6=N1 T 
HEN Pt="GSV HLLI RH ZOIVZ«B LKVH":60T0 

N9 

1240 IF A(>36 OR V2*<>"LLP OR E6ON0 
THEN 1260 

1242 IF I(6)ON0 THEN P*="BLF HLH'G SZ 
EV GSV PVB 6L GSV HLLI": GOTO N9 
1250 IF E5=N0 THEN P*="GSV IVZXBLI YFR 
OHRHT RH «LG KIVHHFIRAVH. B 
LF ZIV YOLDH RHGL GSV EZXFFN":GOTO N8 
1260 IF A=36 AND V2*= H LLI" AND I(6)=N0 
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THEN P$="GSV HLLI RH HLD LKVH"jE6=N1: 
GOTO N9 

1270 IF A=41 AND V2$="MV0" THEN P*="GS 
y KZHVO RH URINOB OLXPVH":GOTQ N9 
1280 IF A=45 AND V2$="LXP" AND E9=N1 T 
HEN P*="GSV ZRIOLXP RH ZQIVZHB LKVH":6 
OTO N9 

1290 IF A=45 AND V2*="LXP a AND E9=N0 T 
HEN P*="GSVIV ZIVM'G ZHB ERHRYOV XLHBI 
LOH"iGOTO N9 

1300 P*= 8 R XZH'G HL GSZG": GOTO N9 
1310 IF V2$="GVI" OR V2*= B LRH" THEN Pt 
="HLM'6 YV IRHRXFQLFH":GOTO N9 
1320 IF V2=N0 THEN P*="R XZH'G HL GSZG 
":GOTO N9 

1330 IF I(V2)=N0 THEN P$="BLF ZOIVZHB 
SZEV GSZG"! GOTO N9 

1340 IF AOKV2) THEN P$="R HLH'G HW 
RG SVIV:60T0 N9 

1350 IF P4>=NB THEN P*="HLIIB, BLF XZH 
'G XZIIB ZHBGSRHT NLIV":GQSUB N4:G0T0 
LI 

1360 P4=P4+N1 s I «V2) =N0: PRINT 0K*:60T0 
LI 

1370 IF V2=N0 THEN P*="BLF HLH'G SZEV 
GSZG 8 : GOTO N9 

1380 P4=P4-N1:I(V2)=A!PRINT OKtsGOTO L 
1 

1390 IF I(N5)ON0 THEN P$="BLF HLH'G S 
ZEV Z DVZKLH':G0TO N9 
1400 IF A=N1 AND V2t="LXP" THEN P*="BL 
F ZIV YOLDH LFG LU GSV ZRIOLXP RHGL GS 

V EZXFFN LU HKZXV":60T0 N8 

1410 IF A=27 AND V2$="GVI" THEN P*="GS 

V XLNKFGVI RH WVHGILBVH»!E2=Nl:E0=N0sG 
OTO N9 

1420 IF A=38 AND V2t="GVI" THEN P*="GS 

V HSL6 IVUOVXGH LUU LU GSV XLNKFGVI ":G 
OTO N8 

1430 IF A=41 AND V2$="GVI" THEN Pt="GS 

V DSLOV HFNXOVZI IVZX6LI RH VCKQLHRHT" 
:GOTO NB 

1440 IF V2*="RHH" OR V2*="YLG" OR V2*= 
"ILO a OR V2$= a IViH H OR V2$="ZIH" THEN V 
2$="LRH" 



1450 IF m<> a m" AND V2*<>"LRH" THEN 
P$="6SV OZHVI HSLG SZH HL VUUVXCiGQT 
N9 

1460 IF V2*="BVr AND D3=N0 THEN P$="R 
HLH'G HW ZHB NLHHGVI SVIVsGOTO N9 
1470 IF V2$="LRW" AND D7=N0 AND E0=N0 
AND E3=N0 AND E7=N0 THEN P$="R HLH'G H 
VV ZHB ZHHILRHH SVIV'sGOTO N9 
1480 T=INTU00*RND(N0))+1:IF T>P2+P3+5 
THEN P$="BLF URIV ZHH NRHH":80T0 N9 
1490 IF 03ON1 THEN 1500 
1492 P*="BLF SR6 GSV NLHHGVI "jGOSUB N4 
:D4=D4-((10+P2+P3)/N2):IF D4>N0 THEN 1 
540 

1494 D3=N0:D4=N0:P*="BLF SZEV PROOVH R 
G":GOTO N9 

1500 IF D70N1 THEN 1510 
1502 P*="BLF SRB GSV ZHHILRH B sGOSUB N4 
:D8=DB-(5+P2+P2)/N2iIF DB<=NO THEN D7= 
N0:D8=M0iP*= a R6 RH HVHGILBVH*:GOTO N9 
1504 GOTO 1540 
1510 IF E0ON1 THEN 1520 
1512 P$="BLF SRG GSV ZHHILRH":60SUB N4 
:E1=E1-(N5+P2+P3)/N2:IF EK=NO THEN EO 
=NO:El=NOsP$="RG RH HVH6ILBVH";G0T0 N9 
1514 GOTO 1540 
1520 IF E30N1 THEN 1530 
1522 P$="BLF SRG GSV ZHHILRH":GOSUB N4 
i E4=E4- (N5+P2+P3) /N2: IF E4<=N0 THEN E3 
=N0:E4=N0:P$='RG RH HVHGILBVH":GOTO N9 
1524 GOTO 1540 
1530 IF E70N1 THEN 1540 
1532 P*= a BLF SRG GSV ZHHILRH'jGOSUB N4 
:E8=E8-!N5+P2tP3)/N2:IF E8<=N0 THEN E7 
=NO:EB=NOsP$="RG RH HVHGILBVH'sGOTO N9 

1534 GOTO 1540 

1540 IF D3=N1 THEN P*="RG RH H6RO0 Z0R 

EV:G0T0 N9 

1550 P$="GSV ZHHILRH RH HGROO UFHX6RLH 
RHT":G0T0 N9 

1560 IF V2=N0 THEN P*="R XZH' 6 HL GSZG 
":G0T0 N9 

1570 IF KV2)ON0 THEN P$=»R HLH'G SZE 
V GSZG": GOTO N9 
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1580 IF V20N9 AND V2<>14 THEN P*="R X 

ZH'B HL GSZG'sGQTQ N9 

1590 IF <V2=N9 AND A=44) OR <V2=14 AND 

A=38) THEN Pt="HL6SRHT SZKKVMH B :60SUB 

N4 

1600 IF V20N9 OR A<>38 THEN 1610 
1602 F4=35iP$="GSV XLNKF6VI IVKORVH: ' 
YZHV HVH6IFX6 HVJFVHXV H6ZIGVH'":GDSU 
B N4:P$=°HVHGIFX6RLH RH: " 
1604 Pt(LEN<P*)+Nl)=STR*(F4):P$<LEN(P* 
)+Nl)=° NRHFGVH":P4=P4-N1:I(9)=100:G0T 
N9 

1610 IF V2=14 AND A=45 THEN P$="GSV TZ 
6V LKVHH":E9=N1:G0T0 N9 
1620 IF V2O10 THEN P*="WJ'G YV IRHRX 
FOLFH"!GOTO N9 

1630 IF KIMONO THEN P$="BLF HLH'G S 
ZEV 6SZG":G0T0 N9 

1640 PRINT 0Kt:IU0)=50:P4=P4-Nl:Pl=Pl 
+N5+P3I IF P0<P1 THEN P0=P1 
1650 GOTO LI 

1660 IF A=N1 AND V2*="0FV THEN P*="GS 
V ZRIOLXP LKVHH... BLF ZIV YOLDH LFGRH 
BL GSV EZXFFN LU HKZXV":GOTO N8 
1670 IF A=6 AND V2t="0FV" THEN P*="Z H 
6IZHTV, LIZMTV TOLD XLEVIH BLF ZNH GSV 
II UZHVH ZDZB":GOTO N9 
1680 IF A=10 AND V2$="IVU H AND D3=N1 T 
HEN P*="HLGSRHT SZKKVHH*:GOTO N9 
1690 IF A=10 AND V2*="IVH" THEN D3=N1: 
P*="ZH ZORVH NLHHGVI RH IVOZHVH. R6 R 
H ZGGZXPRHT BLfiBOTO N9 
1700 IF A=13 AND V2$="0FV" THEN A=34:P 
$="Z UDZHS LU ORTSG 6VNKLIZIR0B YORHHH 

BLF": GOTO N9 
1710 IF A=20 AND V2*="IVW" AND D6=N0 T 
HEN P$="NLBSRNT SZKKVMH":60T0 N9 
1720 IF A=20 AND V2*="IVH" THEN D6=N0: 
Pt="GSV HXIVVH TLVH Y0ZHP":60T0 N9 
1730 IF A=20 AND V2$="QFV" THEN D64I1: 
Pt="GSV HXIVVH ORTSGH FK":GQTO N9 
1740 IF A=31 AND V2t="0FV THEN E5=N:: 
PRINT 0K$:60T0 LI 
1750 IF A=34 AND V2*= B IVH B THEN A=13:P 



*="Z UOZHS LU 0RTS6 GVNKLIZIROB YORHHH 

BLF":BOTO N9 
1760 IF A=40 AND V2$= 8 IV« S THEN F3=N0: 
PRINT 0K$:6OTO LI 

1770 IF A=40 AND V2$="0FV" THEN F3=N1: 
PRIMT 0K$;GOTO L! 
1780 P*="«L6SRHT SZKKVHH":GOTO N9 
1790 IF A=22 AND V2$="VVM B THEN Pt="BL 
F XZH HVV MLGSRHT LU RHBVIVH6 LH BSVIZ 
HZ I": GOTO N9 

1800 IF V2=N0 THEN P$="R HLN'G SZEV GS 
ZG n sGOTO N9 

1810 IF KV2JON0 AND AOKV2) THEN Pt 
= a R HLH'G SZEV 6SZG":G0T0 N9 
1820 IF V2=N3 OR V2=13 THEN P$="R HVV 
MLGSRHT HKVXRZO":GOTO N9 

1B30 IF V2=N9 THEN Pt="HLIIB, LHOB Z X 

LNKF6VI XZH IVZW Z KILTIZN":GOTO N 

9 

1840 IF V2=16 THEN Pt="GSV KOZHH ZIV H 

VZOVH...LHQB XLNNZHN XZH LKVfl 6SVN": 

GOTO N9 

1B50 P*= B R XZH'G IVZW GSZG":GOTO N9 

1860 GRAPHICS N0:P$="t t t KOZBVI'H RH 

EVHGLIB t t *":GOSUB N4:PRINT 

1870 FOR T=N1 TO 16: IF I(T)=N0 THEN P$ 

=It(IP(T),IP(T+Nl)-Nl):GOSUB N4 

1880 NEXT T 

1890 CLOSE INhOPEN iNl,N4,N0,"K:":6ET 

fNl,T:CLOSE SN1 
1900 GOTO 2410 

1910 IF V2=N0 THEN P*="R XZH'G WL GSZG 
»:GOTO N9 

1920 IF I(V2K>N0 THEN Pt="R WLM'G SZE 
V GSZG": GOTO N9 
1930 IF V20N1 OR A<>12 OR D5ON0 THEN 

1940 
1932 Pt="GSV XZYRNVG RH WVHBILBVW»:D5= 
N1:I(N1)=100:I!N5)=ABS(I(N5)):P4=P4-N1 
:GOTO N9 
1940 IF (V2=N1 OR V2=15) AND (D3=N1 OR 

D7=N1 OR E0=N1 OR E3=N1 OR E7=N1) THE 
N I(V2)=100:P4=P4-100:GOTO 1490 
1950 IF (V20N1 AND V2<>15) OR AON1 T 
HEN 1960 
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1952 P$="GSV ZRIOLXP RH WVH6ILBVH...BL 

F ZIV YOLDH LFG RHBL BSV EZXFFN LU 

HKZXVsGOTO NB 

1960 IF (V20N1 AND V2015J OR A<>36 

R E6ON0 OR E5ON0 THEN 1970 

1962 P$="GSV HLLI RH HVH6ILBVH...8LF Z 

IV YOLDH RHBL BSV FHKIVHHFIRAVH IVZX6L 

I YFRQHRHT":6QTQ NB 

1970 IF (V20N1 AND V2<>15) OR A<>36 

R E6ON0 OR F3ON0 THEN I960 

1972 P*="6SV HLLI RH HVH6ILBVW. BLF Z 

IV YLNYZIWVH DRBS IZWRZBRLH'sGOT 
NS 

1980 IF !V2=N1 OR V2=15) AND A=36 AND 

E6=N0 THEN P*="6SV HLLI RH HVHBILBVH".- 

E6=Nl:I(V2)=100:P4=P4-NlsB0T0 N9 

1990 IF V20N1 AND V2<>15 THEN 2000 

1992 P$="6SV n iP$(5)=I*(IP(V2),IP(V2+N 

1)-N1):60SUB N4:P$= U SZH HL ZUUVX6":KV 

2)=100:P4=P4-Ni:GOTO N9 

2000 BOTO 1370 

2010 IF V2=N0 THEN Pt^R XZH'G HL 6SZS 

":6QT0 N9 

2020 IF KV21ON0 THEN P*="R HLH'G SZE 

V 6SZB":60T0 N9 

2030 IF V2=N5 AND D3=N1 THEN V2$="GVI" 

2040 IF V2=N5 AND (D7=N1 OR E0=N1 OR E 

3=N1 OR E7=N1) THEN V2*= B LRH" 

2050 IF V2=N5 THEN 1390 

2060 IF V2=N4 AND F3=N0 AND (A=40 OR A 

=35 OR A=30 OR A=3l) THEN P$="6SV YOZX 

P WVERXV RH YORHPRHT'sBOTO N9 

2070 IF V2=N4 AND F3=N0 AND A=36 THEN 

P*= B BSV YOZXP HVERXV RH UOZHSRHT YIRTS 

GOB": BOTO N9 

20B0 IF V2=N4 THEN P$="BSVIV ZIVH'B Z« 

B ERHRYOV XLHSILOH LH BSRH HVERXViGO 

TO N9 

2090 IF V2<>12 THEN 2100 

2092 I!12)=A:P4=P4-N1:I$(IP(12),IP(12) 

+N4)="ZINVH":F2=35:P$= , 'GSV YLNY DROO V 

CKQLHV RH 35 NRNF6VH":60T0 N9 

2100 IF V2=N2 AND A=12 AND D5=N0 THEN 

D5=N1:P$= B BSV XZYRHVG RH HLD LKVH"iI(N 

5)=ABSU(N5)):GOT0 N9 



2110 IF V2=N2 AND A=12 AND D5=N1 THEN 

P*="GSV XZYRHVG RH ZOIVZHB LKVH":60T0 

N9 

2120 IF V2=7 AND A=26 AND D9=N0 THEN D 

9=N1:I(16!=ABS(H16)):P$="6SV HZUV LKV 

HH B !SQTO N9 

2130 IF V2=ll THEN 2140 

2132 P4="DSZB WL BLF DZH6 NV BL HL DRB 

5 GSV D :G0SUB N4!P*=I*(IP(V2),IP(V2+N1) 
-N1):P*(LEN(PI)+N1)="?":G0T0 N9 

2140 IF HNBIONO THEN P$="6SVIV ZIVH' 

6 ZHB YZBGVIRVH ULI GSV IZHRL":60T0 N9 
2150 IF F2=N0 THEN 2160 

2152 P$="Z ELRXV HZBH 'YLNY HBZ6FH: "; 
P$(LEN(P*)+l)=STR*(F2)!P*(LEN(Pt)tl)=" 

NRHF6VH":60SUB N4 

2154 P*="FHGR0 HV6LHZGRLH'":B0T0 N9 
2160 P$="6SV IZHRL RH HROVHB'sBOTO N9 
2170 BRAPHICS NO:P*="» * t KOZBVI'H H6 
ZGFH * t * n sGOSUB N4:PRINT 
21B0 Pt="XFIIVHB SRB KLRHGH ■ ":Pt(LEN 
(P*)+Nl)=STR*«Pl)sGOSUB N4 
2190 P$="HVCGVIRGB ZGGIRYFGV= ":P$(LEN 
!P*)+N1)=BTR*(P2):60SUB N4 
2200 P$="OFXP ZGGIRYF6V = "sPSfLEN 
(P*)+N1)=STR*(P3);60SUB N4 
2210 REH 
2220 CLOSE #N1:0PEN #N1,H4,N0, n K: ":6ET 

INlJsCLOSE #N1 
2230 REH 

2240 BOTO 2410 . 

2250 BRAPHICS N0:P$="GAHE OVER"sGOSUB 
N4:60T0 2530 

Update player status. Conduct compbat 
if appropriate. 

2260 IF F2ON0 THEN F2=F2-N1:1F F2<=N0 

THEN 2440 
2270 IF F4ON0 THEN F4=F4-N1:IF F4<=N0 

THEN 2480 
2280 IF PKPO THEN P5=P5+0.5:3F P5=N1 
THEN P5=N0:P1=P1+N1 
2290 IF D3=N0 AND D7=N0 AND EO=NO AND 
E3=N0 AND E7=N0 THEN 2400 
2300 T=INT(RND(N0)tl00+Nl):PRINT 
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2310 IF D3=N1 THEN P$="GSV NLHH6VI ZBB 

ZXPH'iGOSUB N4 

2320 IF D30N1 THEN Pt="GSV HVXFIR6B Z 

HHILRH HSLL6H... U :B0SUB N4 

2330 IF T>80-<P2+P3) THEN P$="R6 NRHHV 

H":G0SUB N4:G0T0 2400 

2340 Pl=Pl-INT(RND(N0>tN5>-INTiRND<N0) 

tN5)-INT(RND(N0)tN5)-INT(RND(N0)»N5)-2 

4+P3 

2342 IF D30N1 THEN Pi=Pi+N5 

2344 IF PKNO THEN 2520 

2390 P$="BLF ZIV SR6":60SUB N4 

2400 IF V1=0 OR VI >4 OR D3+D7+E0+E3+E7 

>0 THEN FOR ZZ=N1 TO 150:NEXT ZZ 

Initialize for new turn. Jump to 
appropriate room description. 

2410 V0*=" B :Vt="":Vl*="":V2*=":Vl=N0: 

V2=N0:A*= U "!B*=" U :C*=""!D$= , "!E$=' , »;N= 

N0:S=N0:H=N0:E=N0 

2420 IF A>45 THEN 2560 

2422 G0SUB AtlO:GOTQ 470 

Evaluate end-game conditions and 
display appropriate messages. 

2440 GRAPHICS NO: IF A=46 THEN F2=-1:G0 

TO 2560 

2450 P$="GSV KSLGLN YLNY VCK0LHVH...GS 

V VHGRIV XLNK0VC RH WVH6ILBVH":60SUB N 

4 

2460 P$="BLF SZEV YVVH PROOVW YB GSV U 

LIXV LU GSV Y0ZHG":G0SUB N4 

2470 PRINT .-PRINT :G0T0 2530 

2480 GRAPHICS NO: IF A=46 THEN F4=-l:60 

TO 2560 

2490 IF A=3B THEN P$="GSV XLNKF6VI UOZ 

HSVH YIRTS6QB, VNRGGRMT HKZIPH 

RN ZOO HRIVX6RLMH":60SUB N4 

2500 Pt="GSV XLNKOVC HFHHVNQB VCKOLHVH 

RHGL NRQQRLMH LU KRVXVH":GOSUB N4 
2510 Pt="BLF ZIV PROQVH YB GSV UZOORNT 

KVYIRH ZILFHW BLF":G0SUB N4:PRINT :P 
RINT :60T0 2530 

2520 PRINT :P$="BLF ZIV HVZH!":60SUB N 
4 



2530 PRINT : PRINT "DO YOU WANT TO PLAY 

AGAIN";: INPUT A* 
2540 IF A*(N1,N1)=»B" THEN RUN 
2550 GRAPHICS N0:END 
2560 P$="GSV HKZXV HSRK HFHHVMQB ORUGH 

RHGL LIYRG ZILFMH GSV K0ZrlV6":60SU 
B N4 

2570 IF (F2=N0 OR (F2ON0 AND I(12)<>4 
D) AND F4=N0 THEN 2574 
2572 GOTO 2580 
2574 Pt="BLF HRHH'G HVHGILB GSV YZHV. 

BLF SZEVUZROVN BLFI NRHHRLH.":GOSUB N 
4: PRINT :60T0 2530 

25B0 P$="UILN Z HRHGZHXV, BLF XZH HVV 
GSV ZORVNYZHV VCKOLHV:GOSUB N4 
2590 IF IU61ON0 THEN P*="BLF HRHH'G 
IVXLEVI GSV HVXIVG KOZHH HVVHVH YB H 
GZI XLNNZMW":60SUB N4:PRINT :GOTO 2530 
2600 P$="NRHHRLH RH Z HFXSVHH! "sSOBUB 
N4 
2610 END 

Initialize workspace. Read In Items and 
verbs. 

2620 CLR :DI« I*(300),I(16),IP(17),VB* ' 
(51) 

2622 DIN V*!20) f Vl*<3),V2$(3),A*(120), 
B$(70),C1<40),D$(40),E*(40),P$(120) 
2624 DIM Z*(40),0K*(3),VO*(2O) 
2626 NO=0:N1=1:N2=2:N3=3:N4=4:N5=5:N8= 
8:N9=9:L1=2260:L2=1110:L3=1100:L4=1120 
:0KI="0K":0K*(N3)=CHR*f253) 
2630 GRAPHICS NO 

2640 PRINT u OPERATION: SABOTAGE BY 
RAY SATO":? :? " ATARI VERSION BY 
RICH BOUCHARD" 

2650 It=":FOR T=N1 TO 16:READ Z$:IP(T 
)=LEN(It)tl:I$(LEN(I*)+Nl)=Z$:READ Z:I 
<T)=Z 

2660 NEXT T:IP(T)=LEN(I*)+1 
2670 READ VBJ 

Establish player-attribute points. Jump 
to first room. 

2700 P0=40:F0R T=N1 TO P0:P0=P0+INT<RN 
D(N0)tN2):NEXT T 
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2710 P1=P0 

2720 P2=10jF0R T=Ni TO P2sP2=P2+INT(RN 
D(N0)tN2)sMEXT T 

2730 P3=i0:F0R T=N1 TO P3:P3=P3+INT(RN 
D(N0)»N2):NEXT T 

2740 D4=50:DB=D4:E1=D4:E4=D4;EB=D4:F0R 
T=N1 TO D4:D4=D4+INT(RND(N0)»N2hD8=D 
8+INT(RND(N0)tN2) 

2742 El=El+INT!RNDtN0)tN2):E4=E4+INT(R 
ND (NO) *N2) : E8=E8+INT (RND (NO) »N2) s NEXT 
T 

2750 A=N1:P4=N1 

2760 GOTO 2410 



Item and verb data. 

2770 DATA KDZHGRX VCKOLHREV, 0, XILDVZI , 

7,XZ0vHHZI,B,HNZ00 YOZXP HVERXV, 9,0ZHV 

I KRH6L0,-12,HVXFIRGB PvB,-16 

2772 DATA V0VX6ILHRX XLHGILO YZ6LH,-17 

, YZG6VIRVH, 18, XLNKFBVI MH6IFX6 KILTIZ 

N,21,HR0EVI KR0Q,23 

2774 DATA KLI6ZY0V IZHRL,25,QZITV KSLB 

LH YLNY,28 

2780 DATA TZOZXGRX XSZIG,32,0ZFMXS HBH 

GVM XZHHvGGV, -32, HRGILTOBXVIRH, 39, HVX I 

VG K0ZHH,-26 

2790 DATA HLIHLFDvrlvZHLKVTvBHILHSLRHHV 

ZGKFHIVZRHEGSIFHVH6ZJFR 




TheBestofSoftSide 



)>■)))>)■)))))).)>).)))■)) 




by Victor A. Vernon Jr. 

Leyte is a sea-battle simulation for an 
Atari with 16K RAM. 

After the U.S. Central Pacific 
(CINCPAC) forces under Admiral 
Nimitz had taken the islands of Pelelu 
and Angour, and MacArthur's forces 
had secured New Guinea, President 
Roosevelt met with MacArthur and 
Nimitz. MacArthur convinced the 
President that the next objective ought 
to be the liberation of the Philippines, 
thereby tearing the Japanese empire in 
two, isolating the home islands from 
the oil and wealth of the Indies. 

The American plan was to invade the 
island of Leyte in the center of the 
Phillipines with the combined forces of 
MacArthur's Eighth Army and Ad- 
miral Kinkaid's Seventh Fleet, with 
Admiral Halsey's Third Fleet protec- 
ting the landing attempt from disrup- 
tions from the Imperial Fleet. This 
would mark the first joint operation by 
the two American Pacific Fleets. 

The Seventh Fleet was mainly an in- 
vasion fleet, consisting of troop 
transports and LST's. Its only capital 
ships were in a bombardment group of 
old battleships (some of them veterans 
of Pearl Harbor), a few cruisers, and 
destroyers with escorts. This group was 
not prepared for large-scale naval 
engagements, and lacked both 
torpedoes and armor-piercing bombs. 

Fortunately, the Third Fleet was 



Atari version by Alan J. Zett 

much better equipped, with its new 
Essex class carriers, each with 100 air- 
craft, and its several lighter carriers, 
Iowa class battleships, heavy and light 
cruisers, and destroyers. The combina- 
tion of the two Fleets was the greatest 
armada ever assembled. 

The Japanese, woefully outclassed, 
developed a plan, known as SHO-1, in- 
tended to defend the core of their Em- 
pire and win an agreement that would 
preserve as much of it as possible. 
Their strategy was to draw the 
Americans out on a limb, then cut off 
the limb. With the Leyte landings, they 
were prepared for that surgery. 

SHO-1 was founded upon two prin- 
ciples: 1) The Imperial Fleet was no 
match for the Third Fleet; 2) The 
Seventh Fleet was no match for the Im- 
perial Fleet. 

The Japanese would therefore have 
to neutralize the Third Fleet, leaving 
the Seventh at the mercy of the Im- 
perial Fleet. This would require perfect 
timing and fabulous luck. Amazingly, 
SHO-1 succeeded in almost every 
detail. Only an error of judgement 
denied the Japanese full victory. 

The Japanese forces were divided in- 
to three fleets: the Northern, the Cen- 
tral, and the Southern. The Northern 
Fleet's mission was to lure Admiral 
Halsey and the Third north, away from 
Leyte, while the Central and Southern 
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Fleets drove the Americans out of the 
Philippines. 

The Southern force was to sail 
through the Suriago Strait, which led 
to the southern portion of Leyte Gulf. 
The Central force, under Admiral 
Kurita, was to be the main attack 
force. It would sail through the 
Sibuyan Sea, through the San Bernar- 
dino Strait, then turn south around the 
island of Samar to enter Leyte Gulf 
from the north. The Central and Nor- 
thern forces were to meet early on 
October 25, 1944, and together wreak 
havoc on the American transports in 
the harbor. 

Let us now briefly review the events 
of October 20 through 25. Remember 
that this was the largest naval battle 
ever fought; it covered thousands of 
square miles of ocean, and involved 
every type of warship, from the 
smallest PT boat to the largest bat- 
tleship. If this brief account proves 
confusing, you might wish to refer to 
Edwin P. Hoyt's The Battle of Leyte 
Gulf and Admiral Morrison's Naval 
Operations in World War II. 

On October 20, the Americans land- 
ed on the western shore of Leyte 
Island. Almost immediately, SHO-1 
was put into operation. The landings 
were accomplished with only some 
Japanese air attacks based from 
Luzon. Two days later, American sub- 
marines spotted the Japanese Central 
force in the Sulu Sea. At first light, 
Halsey sent out his search planes. They 
found the Japanese in the Subayan 
Sea, sailing east toward San Bernar- 
dino Strait. Halsey immediately 
launched a full air strike. 

About this time, Halsey ordered the 
formation of a new task group, under 
Admiral Lee, whose job it was to guard 
the San Bernardino Strait if and when 
Halsey found the Japanese carriers. 
Meanwhile, The Japanese Northern , 
force was trying desperately to be 
found, but was having little success. 
Although they had broken radio 
silence, atmospheric conditions 



prevented Halsey's radio men from 
detecting them. 

Halsey's air strike found its target, 
and, after inflicting some damage, 
misinterpreted a Japanese withdrawal 
as a full retreat. By now, the Northern 
force had been discovered, and Halsey 
decided to attack them. He took his 
special task force, which had been 
guarding the strait, with him, but a 
confusion occurred that left the 
Seventh Fleet's commander, Admiral 
Kinkaid, with the impression that the 
strait was still guarded. As a result, 
Kinkaid deployed no forces to the 
strait, hoping to concentrate all his ef- 
forts against the Japanese Southern 
force. 

The night of October 24-25 was most 
eventful. Halsey arid the Northern 
force were approaching one another. 
The Central force had turned east, and 
was heading for the mouth of San Ber- 
nardino Strait. The Southern force was 
sailing north through Surigoa into a 
trap, laid by Admiral Kinkaid, and was 
utterly destroyed. 

October 25 was a crucial day in the 
Pacific War. San Bernardino Strait 
was an unencumbered entrance into 
Leyte Gulf, and the Central force was 
steaming through it at 20 knots. 
Should these 22 ships reach the lan- 
dings, they would transform them into 
a bloody shambles, with American 
help too far to the north and south. 

The thin American defenses in the 
strait sacrificed themselves. Their 
reckless, desperate attacks, though 
continually smashed, served to scatter 
and confuse the Japanese. Kurita, the 
commander of the Central force, knew 
nothing of the Northern's success in 
luring the Third Fleet away. He 
thought that he was driving the last 
remnants of the Imperial Fleet into a 
deadly trap. In his confusion, he 
thought that the few, light ships defen- 
ding Leyte were the heavy ships of the 
Third Fleet. Though he could have 
easily smashed the defenders, he turn- 
ed around. In the next few days, 
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Halsey's airmen smashed Kurita's Cen- 
tral force. Although SHO-1 had work- 
ed perfectly, all three divisions of the 
Imperial Fleet were defeated. They lost 
26 of their finest ships in four short 
days. 

What might have happened if Lee's 
task force had been awaiting Kurita's 
Central force at the mouth of San Ber- 
nardino Strait? In this simulation, you 
will be Lee, and the computer, Kurita. 
Your fleet will consist of the bat- 
tleships Jersey, Washington, 
Massachussetts, and Alabama; the 
cruisers Pittsburgh and Baltimore; and 
six Fletcher class destroyers. The 
Japanese fleet will be the battleships 
Yamato, Nagato, Kongo, and Hagura; 
the heavy cruisers Chokai and Sizuya; 
the light cruiser Nagara; and eight 
destroyers. 

In both fleets, the destroyers are 
considered to be a collective force. 
That is, the target for one destroyer is 
the target for all. While individual 
destroyers may be targeted and sunk, 
all of them must be sunk in order to 
destroy their force. 

The screen displays a map showing 
the Island of Samar, with San Bernar- 
dino to the left and Leyte Gulf to the 
right. North is the left side of the 
screen; east is the top; south is right; 
and west is the bottom. The Japanese 
will move from left to right, from San 
Bernardino to Leyte. To win, you must 
sink all seven capital ships — 
everything larger than a destroyer. If 
any get to Leyte, or if all your ships (in- 
cluding your destroyers) are sunk. Of 
course, the Japanese will not turn 
around. 

You can issue any of these four com- 
mands by pressing the appropriate 
number key: 

1 - status report 

2 - fire guns 

3 - fire torpedoes 

4 - course correction 

The status report will tell you the 
condition of each of your ships; you 
will not be told the condition of the 



Japanese ships. (The computer will tell 
you only if they are sunk, at the time 
when it checks the status of all ships.) 
If you choose to fire your guns you 
will then be asked for a target for each 
of your ships. The Japanese ships are 
numbered as follows; use the number 
to designate a target: 

1 - Yamato 

2 - Nagota 

3 - Kongo 

4 - Haguro 

5 - Chokai 

6 - Suzuya 

7 - Nagara 

8 - Destroyers (collectively) 

If a target is sunk you will be directed 
to select another. Whether or not you 
score a hit is determined by three fac- 
tors: 

1 - a randomly selected number 

2 - how close you are to the target 

3 - whether the target has been fired 

upon by another ship. 
The closer you are to the Japanese, 
the better will be your chances to hit 
something. The third factor comes into 
play because naval gunfire is ac- 
complished by first firing a round, and 
then correcting the aim by noting 
where the first shells land. This can be 
done by watching the splashes; but if 
two or more ships are firing on the 
same target, it is impossible to tell 
which splashes go with each ship's fire. 
The Japanese avoided this by coloring 
their shells, thus giving different 
colored splashes for each ship. 

Firing torpedoes is essentially the 
same, except that only destroyers carry 
torpedoes; thus, you will only be able 
to fire at one target. Also remember 
that while a torpedo can do much more 
damage than a shell, the Mark 14 
torpedoes used by the U.S. Navy in 
World War II were notoriously 
unreliable. At times they would sink; at 
other times they would breach and ex- 
plode against a wave. If they did hit a 
ship, they didn't always explode. The 
Japanese "long Lance" torpedo was 
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larger (24 inches versus 21), and it 
worked. 

Command #4 is a course correction; 
it is not necessary to access this com- 
mand on every turn. Your course is in- 
itially set in a northerly direction. To 
change this you will be prompted to 
enter a number which will lead you in 
any one of 8 directions. The Japanese 
fleet will be heading generally south at 
a flank speed, so that if they get past 
your fleet, you will not be able to in- 
tercept them. Also remember that you 
are a Fleet Commander, not a Ship's 
Captain. Your orders will be for the 
fleet as a whole, and you will not be 
able to move individual ships. 

Basically that's all there is to it: 
maneuver and fire. But remember that 
maneuvering is as important as firing. 
If you stay too far away from the 
Japanese, your chances of sinking 
anything will be very slim, and they 
will sail on to Leyte while you watch 
them go by. But if you get too close too 
soon, the Japanese will blow you out 
of the water with their superior gunfire 
and torpedoes (Japanese cruisers also 
carry torpedoes). 

Your position on the map will be in- 
dicated by an "A," and the Japanese 
position by a "J." If both fleets are at 
the same place you will see an "*". 

Variables 

A: Location of American fleet. 



A(n,nn): Holds all pertinent 

information about the American 

fleet. 

A$(n): Names of American ships. 

Al : Course of American fleet. 

AZ: Miscellaneous. 

C: Movement counter. Determines 

when computer will check on status 

of all ships. Also helps determine if 

Japanese fire guns or torpedoes. 

G: Command variable. 

H: Hit counter. 

H(n,nn) or H(n,nn,x): Hit table; 

determines how much damage is done 

if a hit is scored. Damage is 

determined by the size of the shell, 

where it hits, and what it hit. 

I: Used in POKEing and PEEKing 

screen memory. 

1$: Keyboard input variable. 

J: Position of Japanese fleet. 

J(n,nn): Holds all pertinent 

information about the Japanese fleet. 

J$(n): Names of Japanese ships. 

JT: Number of reserve torpedoes for 

Japanese fleet. 

M: Modifier; changes range of Z, 

depending upon fleet locations. 

Ml : Temporary storage for M. 

NT: Number of reserve torpedoes for 

American fleet. 

R$: Used in status report messages. 

T: Used in arrays to signify target. 

T$: Keyboard input variable. 

T1.T2: Temporary storage variables. 

T1$,T2$: Temporary storage variables 



SS SS SS S3 SS SS SS SS SS SS SS 


Load the arrays. 


SS SS 
SS Atari BASIC S3 


60 GRAPHICS 0:I=PEEK!560)+PEEK (561)125 


SS 'Leyte' SS 
SS Author: Victor Vernon Jr. SS 
SS Translator: Alan J. Zett SS 
SS Copyright (c) 1982 SS 
SS SoftSide Publications, Inc SS 
SS S3 


6+4:I=PEEK!I)+PEEKII+l)t256 


70 POKE 752,1:7 "ONE MOMENT PLEASE":? 
"THERE IS A LOT OF DATA TO READ";NT=50 
:JT=100:A=167:A1=-1:P0KE 82,0 
80 FOR X=l TO 105:J$!!O=" ":A$!X)=" "; 
NEXT h RESTORE 


SS SS SS SS SS SS SS SS SS SS SS 


Draw the map on the screen. Map 


Initialization. 


cannot be redrawn during the program. 


50 DIM A(7,7),J(7,7),A$U20),J$U20),H 


100 FOR X=0 TO 7:READ T1$,T2$:J$(X*15+ 


(4,i2),Tl$!40i,T2$!15},R$(40! 


i)=Tl$:A$!X*15+l)=T2$:FQR Y=0 TO 7:REA 
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D Tl , T2 s J ( X, Y) =T1 : ft ( X , Y) =T2: NEXT Y:NEX 
T X 

110 FOR X=0 TO 4-.FQR Y=l TO 6-.F0R Z=0 
TO 1:READ T1:H(X,Y+Z*6)=T1:NEXT Z-.NEXT 
Y:NEXT X 

113 FOR X=l TO 40:Ti$(X)=CHR*(160):NEX 
T X:OPEN 11,4,0, "K" 

Move the fleets, 

115 6RAPHICS OsFOKE 752,1; FOR X=l TO 1 

7,? II 

'->' ■ I J J (I ) I I ! 5 I I I H ! i I ) J I I ! II > ! I 1 I ! ) I 

I I I II I I 5 SNEXT X 

120 POSITION 9,7:? T1$!21!;:P0SITI0N 7 
,8:? T1$!17};:P0SITI0N 5,9:? Tl$(13!;: 
POSITION 4,10:? Tl$(lti; 
125 POSITION 1,11:? Tit (6) ;: POSITION 
,12:? Tlt!2);:P0SITI0N 0,13:PRINT Tit; 
Tl$j 

127 POSITION 0,13:? " < SAN BERNARDINO 
STR. LEYTE SULF > ■; 

130 POKE 1+371, 51:P0KE 1+375, 33:P0KE I 
+379,45:PQKE 1+383, 33:P0KE 1+387,50 
140 POKE 82,2 

Command routine. 

150 FOR X=l TO 1:NEXT X:C=0:H=0 
160 POSITION 2,16:GGSUB 7000:POKE I+J, 
12:P0KE I+A,12 

165 READ J: IF J=999 THEN 5010 
170 M1=3:Z=INT(RND!0)*3)+1:IF Z=l THEN 
J=J+40 
172 IF Z=2 THEN J=J-40 

175 IF PEEK!I+A+A1X>128 THEN 177 

176 POSITION 2,16:? " YOU'RE ABOUT TO R 
UN AGROUND! ';? "I'LL CORRECT YOUR POSI 
TI0N.";F0R"ZZ=0 TO 500:NEXT ZZ:Al=-40 

177 IF A+AKO THEN Al=40 

180 A=A+Ai:POKE I+A,161:P0KE I+J, 170:1 
F A=J THEN POKE I+A s 138 

Display the status of the American 
ships. 

190 POSITION 2,16:G0SUB 7000:? "CONMAJ 
D_?":IF J=A+1 OF! J=A-1 OP. 3=ft+40 OR J= 
A-40 THEN 111=0 



200 POSITION 2,18:? " 1, - STATUS REPQR 

T":IF A=J THEN Hl=-1 

210 ? a 2 - FIRE GUNS"; IF A=J+39 OR A= 

J-39 0R"a=J+41 OR A=J-41 THEN (11=2 

220 ? " 3 - FIRE TORPEDOES": IF A=J+1 

R A=J-1 OR A=J+40 OR ft=J-40 THEN N1=0 

230 ? " 4 - COURSE CORRECTION": 11=111 

240 P0KE~764,255;F0R X=l TO 2000: IF PE 

EK!764)=255 THEN 270 

250 GET ll,Tl!lF TK49 OR TD52 THEN 2 

70 

255 FOR X=l TO 1 ; NEXT X 

260 G=VAL(CHR$(TU):QN S GOTO 280,480, 

620,730 

270 NEXT X:C=C+1:IF C>2 THEN 150 

275 GOTO 240 

Changes half-turn count, and skips any 
sunken ships. 

280 FOR X=0 TO 7: IF A(X,5!<1 THEN R*=" 
SUNK": GOTO 430 
290 IF X>1 THEN 340 

300 IF A(X,4)<50 OR A(X,2)<7 THEN R$=" 
FLOATING JUNK YARD": GOTO 430 
310 IF A!X,4)<100 OR A(X,2)<12 THEN R$ 
="VERY HEAVY DANAGE":GOTO 430 
320 IF fl(X, 4X150 OR A(X,2X17 THEN R$ 
="HODERATE DAHAGE":GOTQ 430 
330 R$="ESSENTIALLY UNDAMAGED": GOTO 43 


340 IF X>4 THEN 380 

350 IF A!X,4X50 OR A(X,2X7 THEN R$=" 
PREPARE TO ABANDON SHIP! ": GOTO 430 
360 IF A(X,4X100 OR A!X,2X14 THEN R$ 
="SEVERE DAMAGE": GOTO 430 
370 Rf="LITTLE OR NO DAHAGE":GOTO 430 
380 IF X=4 THEN 420 

390 IF A!X,4X20 OR A(X,2X4 THEN Rt=" 
SINKING! ":SQTO 430 

400 IF A(X,4X50 OR A(X,2X8 THEN R$=" 
HEAVY DAMAGE!": GOTO 430 
410 R$="LIGHT OR NO DAMAGE":GOTO 430 
420 IF A(X,4X25 OR A(X,2X5 THEN R$=" 
HEAVY DAMAGE!": GOTO 430 
425 R*="UNDAHAGED" 
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430 POSITION 2,16:G0SUB 7000:? " STATUS 

t B 

440 ? fl$(X*15+l l (X+l)*15):? R$:IF X=7 
AND A(7,5)>1 THEN ? A(7,5Sj" AFLOAT" 
460 FOR Y=0 TO 500: NEXT Y:NEXT X 
470 GOTO 190 

Prompt for a target. Reject any non- 
numeric input. 

480 C=C+1:F0R X=0 TO 7: IF A(X,5X1 THE 
N NEXT X 

Array Is subscripted 0-7, so subtract 1 
from the target. Also, change modifier to 
make target harder to hit if ship was 
was already fired upon this turn. 

490 POSITION 2,ii:G0SUB 7000:? "ENTER 
TARGET FOR ";A$(X*i5+l,(X+l)tl5):H=Ml 
500 GET #l,Ti:T=VAL(CHR*«Ti)) 
510 IF TO OR T>8 THEN POSITION 2,17:? 
"ENTER NUMBER OF TARGET SHIP":? "CHEC 
K INSTRUCTIONS": GOTO 500 

If target is sunk, select another. 

520 T=T-1:M=M+J(T,7):J!T,7)=J(T,7)=J!T 
,7X0.5 

Reset hit counter to zero. 

530 IF J(T,5)<1 THEN ? J$(Til5+l, (T+l) 
115!:? "WAS SUNK":F0R ZZ=0 TO 200:NEXT 
ZZ:80T0 490 

540 H=0:FQR Y=l TO A(X,6}:Z=INT!(RND!0 
m0)+l)+H:IF Z>4 THEN 570 
545 H=H+1 

V determines where target was hit. If the 
ship firing was a battleship, and the 
target Is hit on the front or back turret 
or on the bridge, then the number of 
guns on the target Is decreased by one. 



550 V=IHT(RND(0)»5):IF X<5 



(V=0 



V=l OR V=3! THEN J(T,6)=J(T,6M 
Timing delay. 

555 FOR Z=0 TO 200:NEXT Z 



Change defense factors on target. 

560 J(T,2)=JIT,2)-H!V,A(X,0X6):J(T,4) 
=J(T,4)-H(V,A(X,0)) 

Display the number of main armament 
hits. 

570 NEXT YsIF H>0 THEN POSITION 2,18:6 
0SUB 7000:? H;" HAIN ARMAMENT HITS ON: 
":? Jf(T*15+l,(T+l)»15):F0R ZZ=1 TO 50 
0;NEXT ZZ:H=0 

Repeat the process for secondary 
armaments. 

580 H=M1:F0R Y=l TO A(X,6)t2:Z=INT((RN 

D(0m0!+1)+M:IF Z)4 THEN 610 

590 H=H+1 

600 V=INT!RND(0!i5!:J!T,2)=J!T,2)-H(V, 

A(X,1)+6!:J!T,4)=J(T,4)-H(V,A(X,D) 

610 NEXT Y:NEXT X:H=M1:IF H>0 THEN P0S 

ITION 2,19:G0SUB 7000:? Hj" SECONDARY 

ARMAMENTS HITS ON:":? JHTI15+1, (T+Dt 

15!:H=0 

615 FOR ZZ=0 TO 500:NEXT ZZ:60T0 880 

U.S. torpedo fire. 

620 C=C+i : H=N1-C: POSITION 2,16:G0SUB 7 
000 

630 IF A(7,3K1 AND NT<1 THEN ? "NO TO 
RPED0ES TO FIRE":F0R ZZ=0 TO 500:NEXT 
ZZ:G0T0 880 

640 IF A(7,3)<1 AND NT>9 THEN A!7,3)=l 
0:NT=NT-10 

650 A(7s3)=A(7,3)-5:? "TARGET ? (ENTER 
NUMBER PLEASE) ":H=M1 
670 GET #1,T1:T=VAL(CHR$!T1)):IF T<I 
R T>8 THEN ? "NO SUCH TARGET": GOTO 670 
680 T=T-1:IF J(T,5)<1 THEN POSITION 2, 
18:? J*(Til5+l,(T+M15):? "NAS SUNK": 
? "SELECT ANOTHER TARGET": GOTO 670 
690 FOR Y=l TO 5:Z=INT((RND(0!*10)+1)+ 
H:IF Z>5 THEN 720 

700 V=INT(RND(0)J5!:J(T,2)=J(T,2)-H(V, 
12):J(T,4)=J(T,4)-H!V,6):H=H+1 
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710 POSITION 2,18:? Hj' HITS ON: B ;J*( 
Ttl5+l,(T+l)tl5):G0SUB 7000:F0R ZZ=0 T 

200: NEXT ZZ 

720 NEXT Y:GOTO 880 

U.S. course change routine. 

730 POSITION 2,16:G0SUB 7000:? " 8 

1 2":? ■ !":? " 7-+--3 ENTE 
R NEW COURSE" 

740 ? " !':? " 6 5 4° 

760 6ET tl,Tl:G=VAL(CHR*(Tl)) 

770 IF G<1 OR G>8 THEN 760 

780 SOTO 6*10+780 

790 A1=-40:S0T0 870 

800 A1=-39:GQT0 870 

810 Ai=l:G0TO 870 

820 A1=41:G0T0 870 

830 A1=40:G0T0 870 

840 A1=39:G0TQ 870 

850 A1=-1:G0T0 870 

860 Ai=-41 

870 GOTO 190 

Check turn count. Japanese fire 
torpedoes on second half-turn If range Is 
close enough. 

880 IF CM AND HK3 THEN 1020 

885 H=M1: POSITION 2,16:G0SUB 7000:H=0 

Japanese gunfire routine. 

890 FOR Y=0 TO 7: IF J(Y,5)<1 THEN 1010 
895 POSITION 2,16:? "INCOMING JAPANESE 

FIRE FROM: ":G0SUB 7000:? J*( 

Y*15+1,(Y+1)*15J 
900 FOR X=0 TO 7: IF A(X,5)<1 THEN NEXT 

X:G0TO 4070 

910 T=TT:F0R X=l TO 1:NEXT X:TT=TT+1:I 
F TT>7 THEN TT=0 
915 IF A(T,5)<1 THEN 910 
920 FOR X=l TO J(Y,6):Z=INT((RND(0)tlO 
l+l)+M:IF Z>5 THEN 960 
940 M=M+0.5:H=H+l:V=INT(RND(0)t5):IF ( 
V=l OR V=3! AND Y<4 THEN A(T,6)=A(T,6) 
-1 

950 A(T,2)=A(T,2)-H(V,J(Y,0)+6!:A(T,4) 
=A(T,4)-HtV,J(Y,0!) 
960 NEXT X:IF H>0 THEN POSITION 2,19:? 



Hj" MAIN ARMAMENT HITS 0N:":G0SUB 700 
0:? A$(Ttl5+l,(TH)tl5):F0R ZZ=0 TO 50 
0:NEXT ZZ:H=0 
965 IF Y>5 THEN 1010 
970 FOR X=l TO J(Y,7):Z=INTURND(0m0 
)+l)+M:IF Z>5 THEN 1000 
980 H=H+l:V=INT(RND(0!t5):A(T,2)=A(T,2 
)-H(V,J(Y,i)+6):A(T,4!=A(T,4)-H(V,J(Y, 
D) 

1000 NEXT X:IF H>0 THEN POSITION 2,19: 
60SUB 7000:? H;" SECONDARY ARMAMENT HI 
TS ON:":? A$(T*15+1, (T+1)*15):H=0:F0R 
ZZ=0 TO 500:NEXT ZZ 
1010 NEXT Y:F0R X=0 TO 100:NEXT X 
1015 IF CM THEN 3020 
1017 GOTO 160 

Japanese torpedo fire routine. 

1020 H=H1: POSITION 2,16:G0SUB 7000:? " 
INCOMING JAPANESE TORPEDO FIRE": IF Ml= 
3 THEN M=H+1 

1025 FOR ZZ=0 TO 300:NEXT ZZ 
1030 FOR X=4 TO 6: IF J(X,3)>0 AND J(X, 
5)>0 THEN 2040 
1035 NEXT X 

1040 IF !J(7,3X1 AND JT<1) OR J(7,5X 
1 THEN 3020 

1050 IF J(7,3X1 AND JT>9 THEN J(7,3) = 
10:JT=JT-10 
1060 J(7,3)=J(7,3)-5 
1070 FOR X=0 TO 7:IF A!X,5X1 THEN NEX 
T X:GOTO 4070 

1080 T=TT:FOR X=l TO 1:NEXT X:TT=TT+1: 
IF TT>7 THEN TT=0 
1085 IF A(T,5X1 THEN 1080 
1090 FOR X=l TO 5:Z=INT((RND(0)tlO)+l) 
+H:IF Z>4 THEN 2030 

1100 V=INT(RND(0)t5):A(T,2)=A!T,2)-H(V 
,12}:A(T,4!=A(T,4)-H(V,6!:P0SITI0N 2,1 
8 

1105 ? "TORPEDO HIT ON ";A$!Ttl5+l, (T+ 
1!J15):F0R ZZ=0 TO 500:NEXT ZZ:IF T<7 
THEN T=T+1 

1110 FOR ZZ=0 TO 500: NEXT ZZ 
2030 NEXT XsGOTO 3020 
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2040 F=X:F0R X=l TO IsNEXT X:JiF,3)=J( 
F,3)-8 

2050 FDR X=0 TO 7: IF A(X,5X1 THEN NEX 
T X:GOTO 4070 

2060 T=X:FOR X=l TO IsNEXT X: IF T=S TH 
EN 4070 

2070 FOR X=i TO B:Z=INT((RND(0}*10)+1) 
+H:IF Z>4 THEN 3010 

2080 V=INT(RND(0!»5):A(T,2!=A(T,2)-H(V 
,12!:A(T,4)=A(T,4!-H!V,6):PQSITI0N 2,1 
8 

2090 60SUB 7000:? "TORPEDO HIT ON "jA* 
!TJ15+l,<T+l!il5):FQR ZZ=0 TO 500:NEXT 
ZZ:IF T<7 THEN T=T+1 
3010 NEXT X 
Status update. 

3020 POSITION 2,16:GQSUB 7000:? "CHECK 
ING FOR SUNKEN SHIPS": FOR ZZ=0 TO 400: 
NEXT ZZ 
3030 FOR X=0 TO 6:J(X,7!=0:IF J(X,2X1 

OR J(X,4)<1 THEN J!X,5)=0:? J$(X*15+1 
,(X+1)*15);" ";:FQR Z=l TO 500: NEXT 

Z 
3050 IF A(X,2!<1 OR A(X,4!<1 THEN A(X, 
5)=0 

3060 NEXT X:J(7,7)=0:IF A!7,2!>0 OR A( 
7,4) >0 THEN 3090 

3070 fl(7,5!=A(7,5)-l:IF A<7, 5X1 THEN 
4020 

3080 A(7,2!=5:A(7,4)=20:A(7,3)=10:NT=N 
T-10 

3090 IF JI7,2)>0 OR J(7,4)>0 THEN 4020 
4010 J(7,2!=5:J!7,4!=25:J(7,3)=10:JT=J 
T-10 

4020 FOR X=0 TO 6:IF J(X,5)<1 THEN NEX 
T X:GOTO 4030 
4025 GOTO 4060 
End-of-game messages. 
4030 GRAPHICS 0:? "ALL JAPANESE CAPITO 
L SHIPS SUNK":? 

4040 ? "YOU HAVE SAVED THE LEYTE LAND I 
NGS":? :? 

4050 ? "TO PLAY AGAIN TYPE RUN n :END 
4060 FOR X=0 TO 7: IF A!X,5)>0 THEN 150 



4070 NEXT X:GRAPHICS 0:? "YOU LOST ALL 
YOUR SHIPS":? 
4080 ? "HAYBE KINKAID'S SEVENTH FLEET" 
j? 

4090 ? "WILL SAVE THE LEYTE LANDINGS": 

? :? :GOTO 4050 

5010 GRAPHICS 0:? "THE JAPANESE HAVE R 

EACHED LEYTE":? jGOTO 4080 

Data for all A and J arrays. 

6000 DATA YAHATOjNEN JERSEY, 1,2,4,4,35 

,33,0,0,300,275,1,1,9,9,0,0 

6010 DATA NAGAT0,I0WA,2,2,4,4,30,33,0, 

0,250,275,1,1,8,9,0,0 

6020 DATA KONGO, WASHINGTON, 3, 2, 4, 5, 29, 

31,0,0,250,250,1,1,8,9,0,0 

6030 DATA HAGURQ,HASSACHUSETTS,3,2,4,5 

,28,31,0,0,250,250,1,1,8,9,0,0 

6040 DATA CH0KAI,ALABAHA,4,2,5,5,25,31 

,16,0,220,250,1,1,8,9,0,0 

6050 DATA SU2UYA ? BALTIHDRE, 4,4, 5,5,25, 

25,16,0,220,200,1,1,15,9,0,0 

6060 DATA NA6ARA, PITTSBURGH, 5, 4 , 0, 5, 20 

,25,8,0,100,150,1,1,7,9,0,0 

6070 DATA JAP. DESTROYERS, U.S. DESTROY 

ERS, 5, 5,0, 5, 10, 15, 10, 10, 50, 55, 8,6,6, 5, 

0,0 

Data for hits table. 

6080 DATA 20,2,15,1,12,1,8,0,2,0,20,1, 

25,2,20,1,15,1,10,0,3,0,15,1 

6090 DATA 18,1,15,1,12,0,7,0,2,0,17,3, 

15,1,15,1,11,0,7,0,2,0,17,3 

6100 DATA 17,2,15,2,12,2,10,1,3,1,20,5 

Japanese movement data. 

6110 DATA 361,362,323,284,285,247,208, 

209,210,211,212,173,174,215,216,177,17 

8,179,180,181,222 

6120 DATA 183,224,185,226,227,188,229, 

270,271,312,313,354,355,396,397,438,47 

9,999,999 

Erase to bottom of screen. 

7000 ? ""; jRETURN 
7010 REM Line 7000: 

7 <ESCXSHIFTXBELETE>'S 
The Best ofSoftSide 78 



) ) ) ) 



)>))))).) J >) > 1 ) 




TITAN 

uy William iTiuiTis aiiu juun v^upe 



Titan is an outer space mining 
simulation for a 24K Atari with one 
joystick. 

Editor's Note: This program is 
divided into two parts, enabling it to 
run in 24K RAM. Type in Part I, and 
SAVE it. Then type in Part II separate- 
ly, and LIST it to disk or cassette with 
the LIST "D:filename" or LIST "C:" 
command. 

The year is 2050. The Solar Mining 
Authority, in its ever-expanding quest 
for raw material, has finally decided to 
entertain bids from different corpora- 
tions for the exclusive mining rights to 
Titan, one of the moons of Saturn. 

In an attempt to ensure maximum 
efficiency from the operators of the 
Titan concession, the Solar Mining 
Authority has decided to permit up to 
four companies to operate on Titan us- 
ing Probationary License Permits, for 
a period of one Earth year. 

Sometime during the first quarter of 
the second year, an on-site inspection 
of the competing companies will result 
in one of them being awarded exclusive 
authority to mine the valuable 
Dilithium 3 crystals peculiar to Titan. 
The stakes are high; the risk and ex- 
pense factors, even by 21st century 
standards, are enormous. The reward, 
however, makes the gamble more than 
worthwhile: for your company, fan- 
tastic profits; for you, possible promo- 
tion to the parent corporation's Board 
of Directors, as well as immense finan- 
cial gain! Failure, of course, carries its 
own reward. 

Having decided to accept the post of 
Superintendent of your corporation's 



Titan operation, you will be assigned 
one of four possible base sites: 
Actaeon, Bellona, Chimera, or 
Daedalus. As the highest ranking on- 
site representative of management, you 
must make the initial decisions concer- 
ning budgetary allotment. The only 
mandatory purchase is one power 
plant; all of the remaining choices are 
subject to your final authority. What 
about drilling rigs and robot miners? 
Drill rigs are required for vertical min- 
ing, while robominers carry out 
horizontal digging. Will you invest in 
an on-site Research and Development 
Station? Investing in this category of 
equipment can increase the likelihood 
of finding the Dilithium 3 crystals. 
How many Meteor Deflection Shields 
will be installed to protect your com- 
pany's investment from the ever- 
present danger of stray asteroids from 
the rings? Refineries are needed, of 
course, to process the Dilithium 3 once 
you have discovered a vein of this 
elusive mineral. Without refineries, 
your profits will suffer greatly. Finally, 
energy consumption is a key factor on 
your Titan operation. Having an extra 
energizer unit or two could be very 
helpful! Remember: All of these fac- 
tors are interrelated, with careful tim- 
ing and meticulous attention to detail 
being necessary if the subsequent 
stages of your operation are to 
prosper. Costs fluctuate with increases 
or decreases of the availability of 
equipment. 

Once you have made your initial 
budgetary decisions, you enter the 
management phase of your undertak- 
ing. Your decision concerning the 
number of surplus laborers (Labor 
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Pool), the length of their work shifts, 
the nature of the Recreational 
Facilities, as well as the nature of the 
Bonus Schedule and Safety Program, 
must tread the path best suited to 
achieve your goals. For example, cave- 
ins are a frequent problem on Titan 
because of gravity fluctutations caused 
by Saturn. Investing in safety measures 
could pay dividends. Your decision to 
pay your workers well will have 
positive results that are quickly evi- 
dent. On the other hand, too much 
generosity in the area of labor relations 
could hamper the profit picture. The 
ultimate goal is to increase your effi- 
ciency; however, be advised that there 
are occasions when you will have to 
sacrifice efficiency for greater output. 
This knowledge can only be gained 
from "hands-on" experience. No one 
said the job was going to be easy! 

Having set your policy for the cur- 
rent work cycle, your attention must 
now shift to the actual task of locating 
and mining the precious Dilithim 3 
crystals. Once located at their 
designated mining strikes, your 
workers will await your decisions as to 
drilling locations. A unique screen con- 
troller will allow you to carefully 
monitor and direct the drilling phase 
and subsequent use of the robot 
miners. Through the careful interpre- 
tation of the Assay data beamed back 
to you, the number of drilling sites can 
be kept to a minimum. Again, the 
deployment of the robot miners will 
reflect your ability to carefully monitor 
on-site reports. Both of these latter 
utilities are prodigious users of power; 
but then, you will have thought of that 
when you made your initial decisions 
regarding power plant purchases or in- 
vestment in Research and Development 
units. Right? 

At the end of each work-cycle period 
you must decide, once again, on the 
budgetary decisions for the following 
month. Your experience during the 
previous cycle(s) should enable more 



efficient judgments as you progress. It 
is for this reason that you may view a 
summary of your decisions and ac- 
complishments in the Monthly Report. 
Your statement will also reflect your 
financial capabilities for the next turn. 

One minor last detail: As you will 
remember from an earlier part of this 
briefing, there is a periodic danger of 
damage to your operation from 
meteoroids. It will be your task to use 
the Meteor Deflection Shields to pre- 
vent any on-site damage to your cor- 
poration's property. Of course, these 
units require substantial amounts of 
power; but then, you have carefully 
planned for this contingency, haven't 
you? 

Good luck and good mining! 

On Playing Titan 

One of the primary goals in design- 
ing Titan was to make it as indepen- 
dent of the keyboard as possible. For 
the Atari, this meant the use of the 
joystick. 

Joystick Use 

The joystick routine utilizes the up- 
down, left-right registers to permit 
viewing of possible choices and the 
button to register a final input. It is us- 
ed in all of the key sections of the pro- 
gram. 

Game Initialization 

When indicating the number of 
players and the level of difficulty, 
simply use the left-right joystick 
capability to move the appropriate 
number and press the button to finalize 
your input. 

Equipment Management and Labor 
Relations Phases 

Toggling the joystick to the left or 
right indicates your decision to increase 
or decrease within a category, with the 
button registering this decision. Up- 
ward or downward action on the 
joystick moves you through the dif- 
ferent categories. 
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Mining Pbase 

Left or right action on the joystick 
will allow you to move between the 
drill rig or robominer options, while 
upward toggling will permit you to 
consider ending this phase of the 
simulation. *n ea&i case pressing the 
joystick button registers your decision. 
Be aware, however, that the 
robominers cannot be activated unless 
you have at least one drill rig on site. 

Once you have decided upon a drill 
rig or a robominer, you may move it to 
the drill site by using the joystick. Press 
the button when you have decided that 
you have the equipment on site. 
Downward toggling of the joystick per- 
mits drilling or the movement of the 
robominer down the shaft to occur. In 
the latter case you also have an upward 
movement capability within the drill 
shaft and lateral mining ability once 
the button has been pressed. Be aware 
that pressing the button during lateral 
mining terminates the robominer cur- 
rently in use. 

Monthly Report 

Pressing the joystick button will ter- 
minate this section as you move on to 
decisions for the next month's mining 
operations. 

Variables 

A$: Name of player's base on Titan. 



A: Drill Rig array. 

AC: Action flag indicating decision to 

buy or sell. 

C: Cost of items purchased during 

Equipment phase, or the price of 

worker-related decisions. 

C2: Choice flag which is set during 

the Labor Management phase. 

CH: Choice variable. 

DA: Month of the year. 

EF: Efficiency rating. 

EN: Energy consumption. 

EQ$: Equipment. 

EX$: Extras. 

FF: Efficiency counter. 

HO: Drill hole(s). 

J0-J7: Line numbers. 

K: Player's variable table. 

LV: Level of play. 

P: Current player. 

PL: Total number of players in 

simulation. 

R, RA, RB: Random numbers. 

UL, UN, UY, UZ: Sound variables 

for pitch, duration, etc. 

VI: Horizontal location of dilithium. 

V2: Vertical location of dilithium. 

VE: Number of veins located. 

WC$: Worker related items. 

YE: Current year. 

All other variables not specifically 
identified in the range of X-Z are 
counters or conditional flags. 



ss ss ss ss ss ss ss ss ss ss ss 
ss ss 

SS Atari BASIC SS 
SS 'Titan' SS 
SS Authors: SS 
SS Hilliai Horris & John Cope SS 
SS Copyright (c! 1982 SS 
SS SoftSide Publications, Inc SS 
SS SS 

SS SS SS SS SS S3 SS SS SS SS SS 

Initialization. 

1100 DIM C(12),K(4,16},Z$(i),A$<40),Eg 
* (70) , WC$ (70) , EX* (40) , DBt (72) : J0=20000 



:J1=20010:J2=20020:J3=20030:J4=20040 
1110 J5=20050: J6=20060: J7=20070 
1120 GRAPHICS 2:SETC0L0R O,O,8:SETC0L0 
R i,0,8;SETC0L0R 2,8,0:SETC0LDR 4,8,0 
1130 POSITION 7,4:F0R Z=0 TO 3:READ Zt 
,Y,X:? #6; Z$;: SOUND Z,Y,10,4:F0R Y=l T 
X:NEXT Y:NEXT Z:? #6;"N" 
1140 SOUND 3,68,10,4:SQUND 0,136,10,4: 
POKE 752,1:? ' (c) Ha. Horris & J. C 
ope 19Sr:F0R Z=l TO 999:NEXT Z 

PLaylng parameters. 
1150 SOUND 3,0,0,0:F0R Z=0 TO 3:S0UND 
0,162, 10, 8:SETC0L0R 2,3,15:SETCQLQR 4, 
3,15:F0R Y=0 TO 200: NEXT Y 
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1160 SOUND 0,217, 10, B;SETCOLOR 2,3,0:S 

ETCOLOR 4,3,0:F0R Y=0 TO 200:NEXT YsHE 

XT Z 

1170 FOR Z=0 TO 999:NEXT Z:FOR Z=0 TO 

3:S0UND Z,0,0,0:NEXT Z:60SUB 3000 

1200 GRAPHICS 17:SETCDL0R 2,4,15:SETC0 

LOR 4,12,0:P0SITIQN 2,1:? i6;"8ELCQHE 

TO TITAN! "POSITION 1,7:GQSUB JO 

1210 ? #6;,"USE THE JOYSTICK TO":? 16} ■ 

SELECT THE NUHBER OF":PQSITION 6,11:? 

#6; "PLAYERS. ":GOSUB 2100 

1220 PL=X:GRAPHICS 17.-SETC0L0R 2,4,15: 

SETCOLOR 4,2,0:P0SITI0N 0,7:? #6; "LEVE 

L OF DIFFICULTY?":GOSUB 2100 *"""" 

*230 LV=X+4: GRAPHICS 17:SETC0LQR 4,15, 



1240 FOR Z=l TO PL:PQSITION l,4*Z-3:? 

«6; " PLAYER i ";Zi" COWHANDS BASE";A 

$!Z*10-9,ZtlO):60SU8 JlsNEXT Z 

1250 POSITION 2,19:? #6; "PRESS TRIGGER 

IMPOSITION 8,21:? #6;" BESIN ":G05UB 
JO 

1260 IF STRIG(O) THEN 1260 
1270 FOR Z=l TO PL:K(Z,6)=hK<Z,13!=50 
0:K(Z,14)=100:K(Z,15)=5:NEXT Z:? "H'H 

NOW LOADING PART2." 

1280 ? :? :? "GQT0300":PQSITI0N 2,1:P0 
KE 764,12:ENTER "D:TITAN32K.PT2= 

Joystick selection routine. 

2100 POSITION 6,17:Y=2110 

2110 ? #6; "1,2 3 4":G0T0 2150 

2120 ? #6;'T2.3 4":G0T0 2150 

2130 ? #6;"1 2 3 4":6QT0 2150 

2140 ? #6;"1 2 3 4" 

2150 60SUB Jl 

2160 POSITION 6,17:F0R Z=0 TO 14 STEP 

2: SETCOLOR 2,4,Z:NEXT Zs IF STRI6!0)=0 

THEN X=(Y-2100)/10:G0SUB JO: RETURN 

2170 IF STICK(0)=15 THEN 2160 

2175 IF STICK(0)=11 THEN Y=Y-20:IF Y<2 

100 THEN Y=2100 

2180 Y=Y+10:IF Y>2140 THEN Y=2U0 

2190 GOTO Y 



Set initial numeric variables and string 
arrays. 

3000 DA=0:YE=2050:F0R Z=l TO 4:F0R Y=0 
TO 16:K(Z,Y)=0:NEXT Y:NEXT Z 
3010 C(1)=100:C(2)=200:C(3)=300:C(4}=4 
00:C(5)=500:C(6)=2000:C(7)=5:C(8)=10:C 
(9)=100:C(10)=200:C(ll)=300iC<12)=400 
3020 EQ*="DRILL RIG ROBOHINER DEFLECTO 
R RSD UNIT REFINERY ENERGIZER CONTIN 
UE " 
3030 A*=" ACTAEON BELLONA CHIHERA 

DAEDALUS " 
3040 HC$="LABOR POQLSHIFT TIMEHAGE SCA 
LERECREATIONSAFETY BONUSES CQNTIN 
UE " 

3050 EXt="CREDIT HANPOWER EFF1CIEN 
CYt VEINS % " 
3060 RETURN 

Sound routines. Common to parts one 
and two. 

10000 DATA T, 162,400, I, 108,400,T,B1,60 

0,A,64,100 

10010 DATA 8,8,8,8,8,20,28,20,28,20,62 

,54,99 

10020 DATA 240,208,240,97,255,241,144, 

216 

20000 FOR UZ=15 TO STEP -0.5:F0R UY= 

3 TO STEP -h SOUND 0,15-UY,10,UZ:NEX 

T UY:NEXT UZ: RETURN 

20010 FOR UZ=16 TO STEP -2:F0R UY=0 

TO 5:S0UND 0,15-UY,10,UZ:NEXT UY:NEXT 

UZ: RETURN 

20020 FOR UZ=10 TO STEP -2-.F0R UY=5 

TO 10:S0UND 0,15-UY,10,UZ:NEXT UYiNEXT 

UZ:RETURN 

20030 FOR UZ=2 TO STEP -2: FOR UY=50 
TO 100 STEP 10:SQUND 0,150-UY,10,UZ:NE 
XT UY:NEXT UZ: RETURN 
20040 SOUND 0,UN,10,2:F0R UZ=1 TO 2:NE 
XT UZ:SOUND O,O,0,O:RETURN 
20050 SOUND 0,255, 10,4:FQR UZ=1 TO 9;N 
EXT UZ:SOUND 0,0,0,0:RETURN 
20060 FOR UZ=16 TO STEP -1:F0R UY=15 
TO 200 STEP 10:S0UND 0,UY,10,UZ:NEXT 

UY:NEXT UZ:RETURN 
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20070 FOR UZ=B TO STEP -Is FOR UY=55 
TO 105 STEP JOiSOUND 0,UY,10,UZ:S0UND 
1 } UY-50,90,UZjNEXT UY.-NEXT UZ:RETURN 



PART II 

300 BOSUB 70O0:603UB 8000: FOR P=i TO P 
L: POKE 77,0:60SUB 1000: NEXT P: BOSUB 60 
00: GOTO 300 
Equipment Management. 

1000 GRAPHICS 1:SETC0L0R 2,8,4:SETC0L0 

R 4,P+4,2:CH=1:AC=0:C2=0 

1010 POSITION 3,0:? t6;"BASE:";A*!PtiO 

-9,PI10):P0SITI0N 1,2:? #6;DA; n /l/"|YE 

;' STATUS ";K!P,0):G0SUB J2 

1020 POSITION 0,4:? 16; " EQUIPMENT OHNE 

D COST ' POSITION 0,6:F0R Z=l TO 6:? #6 

;EQ$(Z?10-9,Z*10):NEKT Z 

1030 FOR Z=l TO 6:P0SITI0N 12,5+Z:? 16 

;K(P,Z!j" ":P0SITI0N 16,5+Z:? #6;C(Z>: 

NEXT Z 

1040 POSITION 7,15:? i6;"credit":PQSIT 



ION 8,17:? tt6|K(P,13)j B ":603UB 1100 
IF CH=7 THEN CH=1:AC=0:GQT0 130 
1050 GOTO 1020 

Buy and sell routine. Accessed by 
Equipment Management and Labor 
Relations phases. 

1100 POKE 752,1: POKE 77,0:? "}";:IF CH 

>7 THEN CH=CH-7 

1110 IF AC=0 THEN ? 

60:G0SUB J4 

1120 IF AC THEN ? ," 

3:G0SUB J4 

1125 IF C2=0 THEN ? 



INCREASE": 



DECREASE" :UN=24 



:EQt(CHSl 



0-9,CHil0):G0T0 1135 



1130 ? :? 



;WC$!CH*10-9,CH*10! 



UN=121:G0SUB J4 
m STRIG(OKM) TH 



1135 IF CH=7 THEN ? 

1140 IF STICK(0)=15 

EN 1140 

1150 IF STRIG(0!=0 THEN 1200 

1160 IF STICK(0)=11 THEN AC=0 

1170 IF STICK!0)=7 THEN AC=1 

1180 IF STICK (0) =13 THEN CH=CH+1 

1190 IF STICK (0)=14 THEN CH=CH-i;IF CH 

<1 THEN CH=7 



1195 GOTO 1100 
1200 IF CH^7 THEN RETURN 
1205 IF C2 THEN CH=CH+6 
1210 IF (AC=1 AND CH=6 AND K!P,6)=1) 
R (ACM) AND CH=B AND K(P,8)>17) OR (AC 
THEN 1280 
CH=9 AND K(P,9!=0 THE 



=1 AND K(P,CH)<1) 
1220 IF AC=0 



N 1250 



K(P,13XC!CH) THEN 12 



1230 IF AC=0 

80 

1240 IF AC THEN K(P,CH)=K!P,CH)-1:K(P, 

13J=K(P,i3)+C«CH):IF CH=7 THEN K!P,14! 

=K(P f 14.1-1 

1250 IF AC=0 THEN K(P,CH!=K(P,CH)+1:K( 

P,13)=K(P,13)-C(CH):IF CH=7 THEN K(P,1 

4)=K(P,14)+1 

1260 SETCOLOR 2, 11,0: IF C2 THEN CH=CH+ 

1: IF CH=B THEN SETCOLOR 2,8,4:RETURN 

1270 60SUD J3: SETCOLOR 2,8,4:RETURN 

1280 SETCOLOR 2,3,0:G0SUB J5:SETC0L0R 

2,8,4: IF C2 THEN CH=CH+1 

1290 RETURN 

Labor Relations phase. 

1300 GRAPHICS 1:SETC0L0R 2,B,4:SETC0L0 

R 4,P+3,2:C2=1 

1310 POSITION 3,0s? f6;"6ASE: D ;A$!P&10 

!R " 



-9,PI10):POSITION 4,2:? #6; 

;K(P, 14) POSITION 0,4:G0SUB J2 

1320 K(P,7!=K!P,14!-(K!P,l)tLV)-(K(P,2 

)lLVt2)-(K(P,3)*LV*3}-{K(P,4ULW)-(K 

fP,5J tLVtS)-(KCP f 6}tLVtlO) 

1330 C(9!=K!P,14!:C(10)=K(P,14!t2:C(ll 

)=K(P,14)*3:C!12)=K!P,14)?4:EN4;(P,6)J 

500KU-LV) 



1340 GOSUB 5000: 
"iK!P,15!j"X" 



16: "EFFICIENCY RATE 



1350 POSITION 0,6:? #6; 'conditions se 



POSITION. 0,8:F0R Z=l TO 6:? S6 



t cost 
;WC$(Z*10-9,ZM);NEXT Z 



1360 FOR Z=l TO 6:P0SITI0N 12,7+Z:? #6 
;K(P,Z+6);" ^POSITION 16,7+Z:? #6;C(Z 
+6!:NEXT Z 

1370 POSITION 7,15:? f6;"trjdiJ:":PQSIT 
ION 8,17:? #6;K!P,13); a ":6QSUB 1100 
:IF CH=7 THEN 2000 
TheBestofSoftSide 83 



1380 GOSUB 5000: POSITION 16,4:? #6; EF; 

"7. B ;:GQTQ 1360 

Mining phase and graphics display. 

2000 IF K(P,1)U THEN 3000 

2010 GRAPHICS 7:SETC0L0R 0,1,6:SETC0L0 

R 2,0,0:SETCOLOR 4,0,0:C0L0R 3: PLOT 0, 

19:DRAHT0 159,19 

2020 COLOR 1:F0R Z=20 TO 79: SOUND 0,20 

0-Z*2,10,2:PL0T 0,Z:DRAWTO i59,Z:NEXT 

Z:SETC0L0R 2,11,2:60308 JO 

2030 COLOR 1:F0R Z=l TO 10: FOR Y=l TO 

2:R=INT(RND(O)tl59):PL0T R,Z:NEXT Y:NE 

XT Z 

Set the location of the Dilithlum 3 
crystals. 

2040 V1=INT(RND(0)*129+15):V2=INT(RND! 
01*59+20) : RA=10-LV:RB=INT (RND (0) »3) 
Set up the missile graphics. 

2100 POKE 559,62:Z=PEEKU06!-B:PQKE 54 
279,Z:P0KE 53277,3:X=Zt256+1280:REST0R 
E :F0R Z=l TO 12:READ ZJ:NEXT Z:H0=0 

Read the data for the robomlner and drill 
rig Into the missile .graphics screen 
display locations. 

2110 FOR Z=57 TO 69:READ Y:P0KE X+Z,Y: 

NEXT Z:X=X+256:FQR Z=62 TO 69:READ Y:P 

0KE X+Z,Y:NEXT Z 

Set the playfield so that players have 
priority. 

2120 SETC0L0R 2 S U,2:P0KE 623,1:P0KE 7 

52,1: IF K(P,1!=0 AND (H0=0 OR K(P,2)=0 

! THEN 3000 

2130 ? "}":? ,, "DRILL RIG(S) ";:X=1:W= 

200: GOTO 2150 

2140 ? "}":? "RQBOHINER(S) "j:X=2:N=50 

2150 ? K!P,X):P0KE 5324B+X,K:Z=704+X:P 

QKE Z,78:G0SUB JO+XtlO 

2160 FOR Y=78 TO 64 STEP -1:PQKE Z,Y:I 

F STRIG(0)=0 THEN Y=64:NEXT Y:P0KE Z,7 

8: GOTO 2200 

2165 IF STICK (0) =7 THEN Y=0:NEXT Y.-P0K 

E 53250,0:GOTO 2130 

2170 IF STICK(0!=11 THEN Y=0:NEXT Y:P0 

KE 53249,0: GOTO 2140 



2175 IF STICK(0!=14 THEN 2185 

2180 NEXT Y:GOT0 2160 

2185 ? "}■:? ," CONTINUE"; :P0KE 5324 

9,0:P0KE 5325O,0:G0SUB J3: IF STRIG(0)= 

THEN 3000 

2190 FOR Y=78 TO 64 STEP -1:IF STICKfO 
)=15 THEN 2185 
2195 GOTO 2165 

2200 IF K(f,XXl OR (X=2 AND H0=0) THE 
N SETC0L0R 2, 3, 2: GOSUB J5:SETC0L0R 2,1 
' 1,2:G0T0 2160 
2210 K(P,X)=K(P,X)-1:FQR Z=20 TO STE 
P -1:SQUND 0,Z,10,2:NEXT Z 
Horizontal movement phase. 

2220 SOUND 0,W,10,2:IF STRIG(0)=0 THEN 

2300 
2230 IF STICK(0)=11 THEN H=H-1 : IF H<50 

AND X=l THEN H=50 
2235 IF N<40 THEN W=40 
2240 IF STICK(0)=7 THEN H=H+1:IF 1O200 

THEN W=200 

2250 POKE 53248+X,B:GQT0 2220 
2300 IF X=l AND («=50 OR W=200) THEN 2 
220 

2310 IF X=2 THEN 2400 
2320 N=N-44:Y=19 

Vertical drilling sequence. 

2330 COLOR 2:F0R Z=10 TO 14:SETC0L0R 1 

,0,Z:PL0T N,19:VE=1 

2333 IF STICK(0)=13 THEN Y=Y+1:S0UND 

,200,2,8:VE=2:IF Y>78 THEN Y=78 

2335 GOSUB 2500:? /ENERGY ";EN:IF EN< 

1 OR VE=1 THEN Z=i4:NEXT Z:GOT0 2600 
2340 SOUND 0,150, 12, 2: DRAWTD W,Y:NEXT 
Z: IF STRIG(0)O0 THEN 2330 

2350 COLOR 1 : FOR Z=16 TO 18:PL0T W-4,Z 
; DRftHTO N+4,Z:NEXT Z:C0L0R 0:PL0T W,Y: 
DRAHTQ W,17:P0KE 53249, 0:G0SUB Jl 
2360 HO=HO+!:G0TO 2120 

Robomlner vertical drilling sequence. 

2400 LOCATE W-41,19,Z:IF ZOO THEN 222 


2410 H=K-41:Y=17 
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2420 COLOR 2:F0R Z=iO TO 14:SETC0LQR i 

,0,Z:FLOT «, 17: IF STICK(0)=13 THEN Y=Y 

+1:L0CATE H v r,X:IF XOO THEN Y=Y-1 

2430 IF STICK(0)=14 THEN COLOR 0:PLOT 

H,Y:Y=Y-i:IF Y<20 THEN Y=20 

2435 VE=1:60SUB 2500: SOUND 0,150,12,2: 

DRAWTO H,Y:? ."ENERGY ";EN:IF EN<1 THE 

N Z=14:NEXT ZsGOTO 2600 

2440 NEXT Z: IF (STICK(0)O7 AND STICK! 

0)011) OR Y<20 THEN 2420 

2445 COLOR 0:PLOT W,17:DRANT0 H,Y 

Robominer horizontal drilling sequence. 

2450 VE=1: COLOR 0:SETCOLOR 1,0, 15: PLOT 
H,Y:IF STICKI0)=7 THEN H=H+1:S0UND 0, 
200,2, 8:VE=2i IF W>150 THEN N=H-1 
2460 IF STICK!0!=11 THEN Nl-l: SOUND 
,200,2,0:VE=2:IF H<10 THEN W=K+1 
2465 GOSUB 2500:? , "ENERGY ";EN:IF EN.< 
1 OR VE=1 THEN 2600 

2470 SOUND 0,150, 12, 2: COLOR 2: PLOT H,Y 
:IF STRIG(0IO0 THEN 2450 
2480 POKE 53250,0:G0SUB JliBDTO 2120 

Compare distance of drill rig or 
robominer to Dllithlum. 

2500 POKE 77,0;EN=INT(EN-(100/K(P,15)) 

tVE) 

2510 VE=0:? "}":IF Y<20 THEN SETCOLOR 



2,11.2:? "SURFACE 



: RETURN 



2520 IF (H<V1-RAJ3 OR W>Vl+RAt4i OR (Y 
<V2-RB*3 OR Y>V2+K(P,4)+RBt4) THEN SET 
COLOR 2,1,2:? "ICE AND ROCK";: RETURN 
2530 IF (W<V1-RA*2 OR W>Vl+Rfl»3) OR !Y 
<V2-RB*2 OR Y>V2+K!P,4)+RBJ3) THEN SET 
COLOR 2,7,2:? "THIRIDIUM ";:RETURN 
2540 IF (H<V1-RA OR W>Vi+RA*2) OR (Y<V 
2-RB OR Y>V2+K(P,4!+RBJ2) THEN SETCOLO 
R 2,5,2:? "SECONIUH "jiRETURN 
2550 IF tW<Vl OR. WM+RA) OR (Y<V2 OR 
YH'2+K(P,4!+RB! THEN SETCOLOR 2,3,2:? 
"FIRIDIUH 
2560 VE=1: RETURN 



";: RETURN 



Discovery of Dillthlum. 

2600 IF EN<1 THEN 2800 



2605 COLOR 3:PL0T H,Y:? "}":? "EUREKA! 
You have found DILITHIUHII!":FOR Y=l 
TO 10: FOR 2=15 TO STEP -1 
2610 SETCOLOR 2,3, Z: SOUND 0,160-fZtlO) 
, 10, Y: NEXT Z:NEXT Y: SOUND 0,0,0,0:60811 
B JO:SETCOLQR 2,11,2 
2620 ? "}':? ,,," STATUS": GOSUB J1:X=0: 
Y=1:GQTQ 2640 

2630 ? "}":? "500 CREDITS":GOSUB J2:X= 
13:Y=500 

2640 IF STRIG(0)=0 THEN K(P,X)=K(P,X)+ 
Y:K!P,16!=K(P,16}+1:G0T0 2700 
2650 IF STICK!0)=7 THEN 2620 
2660 IF STICK (0) =11 THEN 2630 
2670 GOTO 2640 

Test for lack of energy or equipment for 
drilling. 

2700 IF EN<1 THEN 2800 

2710 POKE 53250,0:P0KE 53249,0:IF K(P, 

!)>0 THEN 2000 

2720 ? ">":? "YOU DO NOT HAVE ENOUGH E 

BUIPMENT LEFT 8 :? "TO CONTINUE DRILLING 

,":G0SUB J6:G0T0 3000 

2800 POKE 53250,0: POKE 53249,0 

2810 ? "}":? "YOU DO NOT HAVE ENOUGH E 

NERGY LEFT TO":? " CONTINUE DRILLING 

,": GOSUB J6:G0T0 3000 

Cave-in sequence. 

3000 R=RND{Omo-K!P,ll):IF R<7 OR K(P 
,16X1 THEN 3500 

3010 GRAPHICS 18: SETCOLOR 4,3,0:P0SITI 
ON 5,0:? 16 j "RED ALERT! ":Z=0 
3020 FOR Y=30 TO STEP -1: SOUND 0,150 
-Y,10,6:SETC0L0R 0,14,Y:NEXT Y 
3025 Z=Z+1:IF Z<5 THEN 3020 
3030 SETCOLOR 0,14, 10: SOUND 0,0,0,0:P0 
SITION 1,3:? f6;"CAVE IN:":R=INT(RND(0 
)tll! 

3040 POSITION 3,5:? 86; R;" WORKERS LOS 
T!":K(P,14)=K(P,14!-R 
3050 IF R>6 THEN POSITION 3,6:? #6; "SH 
AFT NOW CLOSED! ":K(P,16)=K!P,16!-1 
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3060 IF STRIG(O) THEN 3060 
3070 GOTO 4000 

Meteor-storm sequence. 

3500 R=RND(0)*10-K(P,3):IF R<8 THEN 40 

00 

3510 GRAPHICS 18:SETC0LQR 4,3,0:P0SITI 

ON 5,0:7 16 j "RED ALERT !":Z=0 

3520 FOR Y=30 TO STEP -1: SOUND 0,150 

-Y,10,6:SETC0LQR 0,14,Y:NEXT Y:Z=Z+1:I 

F Z<5 THEN 3520 

3530 SETCOLDR 0,14,10:S0UND 0,0,0,0:PO 

SITION 1,3:? 16; "METEOR STORM! :":R=INT 

(RNDiOUlO+l! 

3540 POSITION 3,5:? I6;R;" WORKERS LOS 

T!":K(P,14!=K!P,14!-R:IF R<7 THEN 3590 

3550 POSITION 0,6:R=INT(RND(0>*5+lhIF 

K(P,R)<1 THEN 3590 
3560 K(P,R)=K(P,R!-i:? #6;ESt!10SR-9,l 
OJR! j "DESTROYED!" 
3590 IF STRISiO! THEN 3590 

Monthly report. 

4000 Z=K!P,5!:IF K!P,16XZ THEN Z=K(P, 

16! 

4010 K!P,i3!=INT(K(P,13}+K(F,13H0.1+5 

00+(50tK(P,0))t(Zt25*K(P l 8))» 

4020 GRAPHICS 0:SETC0L0R 2,11,0,-SETCQL 

OR 4,11,0:P0KE 752,1:60T0 4100 

4030 FOR Z=! TO 36:? Z$j;NEXT Z:RETURN 

4100 ? CHRf!2);:Zt=CHRt(13):GQSUB 4030 

:? CHR*(22S; 

4105 ? CHRf(2!;:P0SITIQN 19,1:? "TITAN 

":POSITION 39,1:? CHRK22);" "jCHRt(2! 

;:PQSITION 39,2:? CHR$(22!; 



4110 ? CHR$!2); 
SITION 29,3:? Di 
3:? CHR$!22)|" 
4:? CHR$(22> 
4120 ? CHR*!2);; 
:? CHRfl22);:G0SUB J7 

4130 ? "! ITEM 
/DAED /"; 

4131 REM Line 4130: Replace ! 



? " MONTHLY REPQRT B :PO 
;;71/";YE:PQSITIQN 39, 
, :CHR$(2);:P0SITI0N 39, 

Z*=CHR$!18!:G0SUB 4030 



/ACTA /BELL /CHIM 



with 



<CTRL>B, Replace / with <CTRL>V 

4140 ? CHR$(2!;:Z$=CHR$(18):G05UB 4030 

:? CHR$!22); 

4144 REM Lines 4145-4195: Replace ! 
with <CTRL>B. Replace / with <CTRL)V 

4145 ? "! Ill 
I /») 

4150 Y=8:F0R Z=0 TO 6: Y=Y+1: POSITION 1 

,Y:W=Z$10:IF W=0 THEN ? " ! STATUS":60 

TO 4170 

4160 ? " ! ";£Q$(tH,W) 

4170 FOR X=l TO 4:P0SITI0N 6IX+9,Y:? " 

/";K!X,Z!:PQSITION 39,Y:7 "/°;:NEXT X: 

NEXT Z 

4180 FOR Z=l TO 4s Y=V+i : POSITION 1,Y:? 

" ! ";EX*(Z*10-9,ZI10) 
4190 FOR X=l TO 4:P0SITI0N 6*X+9,Y:? " 
/";K«X,Z+12!:P05ITIQN 39, Y:? "/";:NEXT 

X:NEXT Z 
4195 ? "! Ill 

I /■; 
4200 ? " ";:FOR Z=l TO 36:? CHR$(18!;: 
NEXT Z 
4210 POSITION 8,23:? "Press TRIGGER to 

continue, *;:GQ8UB J6 
4220 IF STRIG(0!=0 THEN GQSUB J5:RETUR 
N 
4230 GOTO 4220 

Efficiency rating algorithms. 

5000 FF=0:FOR Z=l TO 5:FF=FF+K(P,Z)?Z: 
NEXT Zs IF FF<1 THEN FF=1 
5010 EF=K(P,6)I10/FF:IF EF>1 THEN EF=F 
F/!K(P,6)?10) 

5020 EF=EF*100:FF=K(P,7!$2,5:IF FF<0 T 
HEN FF=FF*-2 

5030 EF=EF-FF:FFMK(P,8)-6)J3:IF FF<0 
THEN FF=FF*-2 

5040 EF=EF-FF+!KiP,9S$5!+iK(P,10)$5!+! 
K(P,11)*7.5}+(K(P, 12)110) :EF=INT(EF)s I 
F EF<5 THEN EF=5 
5050 IF EF>100 THEN EF=100 
5060 IF K(P,9!=0 THEN EF=1 
5070 K(P, 15) =EF: RETURN 
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New cost algorithms. 

6000 FOR M TO 8:X=0;F0R Y=i TO 4:X=X 

±K!Y,Z):NEXT Y:X=X/PL 

6010 IF 2>5 THEN C<Z) =INT CC (2 }+ (C (2> tX 

/(55-LV)))sG0T0 6050 

6020 C(2)=INT(C(2S + (C(Z)JU(25-LV!)-(C 

(Z)tl/(25-LV))) 

6030 IF CS2X100IZ THEN C(Z>=100*Z 

6040 IF C(Z)>200tZ THEN C!Z!=200tZ 

6050 IF Z>6 AND CIZK1 THEN C!Z)=1 

6060 IF Z>6 AND C!Zi>50 THEN C!Zi=50 

6070 IF Z=6 AND C(6S>4000 THEN C!Z!=40 

00 

6080 NEXT Z:F0R Z=l TO 4:F0R Y=8 TO 12 

:KiZ,Y>=0:NEXT Y-.NEXT Z:RETURN 

Adjust date. 

7000 DA=DA+i:IF Dfl=13 THEN DA=1:YE=¥E+ 

1 

7010 RETURN 

End of game. 

8000 IF YE=2051 AND DA>3 THEN 8500 
8010 R=INT(RND(0)t2):IF R=0 OR YE=2050 

THEN RETURN 

8500 POSITION 6,23;? "The INSPECTORS h 
ave arrived !";:F0R Y=l TO 10;F0R Z=15 
TO STEP -1 

8510 SETCOLOR 2, 11, Z: SOUND 0,160-IZIlO 
),10,Y:NEXT Z:NEXT Y: SOUND 0,0,0,0:605 
UB JO 
8520 POSITION 3,23:? "Your performance 

is being assessed, l! ;:FQR Z=l TO 200:N 
EXT Z;IF Vl=l THEN 8600 
B530 Z=-1:Y=0:FQR X=l TO PL: IF K(X,0!> 
=Z THEN Z=K(X,0):Y=Z 
8540 NEXT X: IF Y=l THEN 8590 
8550 FOR X=l TO Y-liIF K(X,0S=Z THEN 8 
570 

8560 NEXT X:GOT0 8590 
8570 FOR. X=l TO Y: IF KtX.OXO THEN K(X 
,0!=0:NEXT X:BOTO 8530 
8580 K(X i 0)=K(X,16)tl00+K(X,15)+K(X,14 
)+K(X,13)+RND!li:NEXT X:GQT0 8530 
8590 SETCOLOR 4, 5,0: SETCOLOR 2,5,0:P0S 



ITION 4,22:? "The supervisor of";A$(Y? 

10-9,YtlO):"has won":GOTQ 8640 

8600 IF K!l,0)>i9 THEN 8630 

8610 SETCOLOR 4,3,0:SETC0L0R 2,3,0:P0S. 

ITION 2,22:? "I aa sorry to report tha 

t you did not"; 

8620 POSITION 0,23:? "achieve enough s 

tatus to gain all TITAN"; : SOBUB 20060: 

GOTO 8700 

8630 SETCOLOR 4,B,0:SETC0L0R 2,8,0:PQS 

ITION 4,22:? "Because of your status y 

ou have won" 

8640 ? " the right to mine all of TI 

TAN!! ";:GDSUB J7 

8700 GOTO 8700 

Sound routines. Common to parts one 
and two. 

10000 DATA T, 162, 400, 1, 108,400,1,81, 60 

0,A,64,100 

10010 DATA 8,8,8,3,8,20,28,20,28,20,62 

,54,99 

10020 DATA 240,208,240,97,255,241,144, 

216 

20000 FOR UZ=15 TO STEF -0.5-.FOR UY= 

3 TO STEP -1 :30UND 0,15-UY,10,UZ:NEX 

T UY:NEXT UZ: RETURN 

20010 FOR UZ=16 TO STEP -2:F0R UY=0 

TO 5: SOUND 0,15-UY,10,UZ:NEXT UY:NEXT 

UZ: RETURN 

20020 FOR UZ=10 TO STEP -2: FOR UY=5 

TO 10:S0UND 0,15-UY,10,UZ:NEXT UY:NEXT 

UZ: RETURN 

20030 FOR UZ=2 TO STEP -2: FOR UY=50 
TO 100 STEP 10: SOUND 0, 150-UY,10,UZ:NE 
XT UYsNEXT UZ: RETURN 
20040 SOUND 0,UN,10,2:F0R UZ=! TO 2:NE 
XT UZsSOUND 0,0, 0,0: RETURN 
20050 SOUND 0,255, 10, 4: FOR UZ=1 TO 9:N 
EXT UZ: SOUND 0,0, 0,0: RETURN 
20060 FOR UZ=16 TO STEP -1:F0R UY=15 
TO 200 STEP 10: SOUND 0,UY,10,UZ:NEXT 

UY:NEXT UZ: RETURN 
20070 FOR UZ=8 TO STEP -1:FDR UY=55 
TO 105 STEP lOsSOUND 0,UY,10,UZ:S0UND 
1,UY-50,90,UZ:NEXT UY:NEXT UZ:RETURN 
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Word Search Puzzle Generator 



by David W. Durkee 



Atari version by Jon R. Voskuil 



Word-Search Puzzle Generator is for 
an Atari with at least 8K RAM and a 
printer. 

Word-Search Puzzle Generator is a 
clever program that lets you create 
entertaining puzzles in little more time 
than it takes to imagine the words for 
them. 

Upon running the program, you will 
receive the option of seeing the puzzle 
as it is created or leaving the screen 
blank so that you can enjoy working 
the puzzle yourself later. Next, you 
simply type words to your heart's 
content. The Atari does the rest, 
placing your words in random orienta- 
tions in the 37-by-20-character letter 
matrix. 

The size of the screen display was the 
reason for the choice of these dimen- 
sions. If you are interested only in the 
print-out of your puzzle, you may 
easily alter the size of the matrix by 
changing the DIMension statement and 
the various loops that use those dimen- 
sions. 

After you have typed all the words 
you wish to include in your puzzle, 
type the word STOP. This will instruct 
the computer to print an answer key, 
the complete puzzle with random let- 
ters filled in, and a list of the words 
you entered. After this, you may elect 
to print additional copies of the puzzle. 



Besides the obvious entertainment 
value of word-search puzzles, there is 
also great potential for educational 
applications. Working this type of puz- 
zle is an easy way to become familiar 
with a list of words, whatever the sub- 
ject matter might be. 

Variables 

A(i,j): Array that stores the ASCII 

codes for letters in the letter matrix. 

A$: Input variable. Also used to 

assemble each line of the puzzle as it 

is printed. 

B: Counts the directions in which a 

word may go. 

B(i,j): Notes the directions in which 

the computer may draw a word, given 

a random starting position. If 

B(X + 2,Y + 2) is 1, then the word 

shares at least one letter with other 

words. 

C: Loop counter. 

D, R: Used to select the best direction 

in the B matrix. 

L, U: Random starting co-ordinates 

for a word. 

X, Y: Indicate word direction along 
the x and y axes; values can be -1, 0, 
or 1 (but not both may be 0), defin- 
ing the eight diferent directions. 

XI, Yl: Printing co-ordinates for in- 
dividual letters; derived from U, L, 
X, and Y. 
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ss ss ss ss ss ss ss ss ss ss ss 
ss ss 

SS Atari BASIC SS 

SS 'Word Search Puzzle' SS 

SS Author: David Durkee SS 

SS Translator: Jon R. Voskuil SS 

SS Copyright (c) 1982 SS 

SS SoftSide Publications, Inc SS 

SS SS 

SS SS SS SS SS SS SS SS SS SS SS 

Initialization and instructions. 

90 POKE 752,1 

100 ? CHR$( 125): POSITION 10,5:PRINT "H 

ORD SEARCH PUZZLE" 

105 POSITION 10,8:PRINT "BY DAVID W. D 

URKEE":P0SITI0N 10, iOsPRINT "COPYRIBHT 

(C! 1981" 
107 POSITION 7,13:PRINT "TRANSLATED BY 

JON VOSKUIL" 

110 FOR 1=1 TO 2000;NEXT I 
120 ? CHR$! 125): POSITION 2,5:PRINT "TO 

CREATE A PUZZLE, SIHPLY ENTER A HO 
RD WHICH YOU WOULD LIKE TO HAVE IN" 
125 PRINT "THE PUZZLE AFTER THE '?' PR 
OHPT." 

130 PRINT :PRINT "WHEN YOU'VE ENTERED 
ALL THE WORDS YOU WOULD LIKE IN THE PU 
ZZLE, ENTER THE" 

135 PRINT "WORD 'STOP' AND THE ATARI W 
ILL DO THE REST, " 

140 PRINT :PRINT "IF YOU WOULD LIKE A 
PUZZLE FOR YOUR- SELF (BLANK SCREEN), 

THEN TYPE '1';" 

145 PRINT "OTHERWISE, TYPE '0' TO BE6I 
N: »; 

150 INPUT BLANK: PRINT "}":Z=0 
160 DIH W*(1000!,A$(41),B(3,3),A!37,20 
) 

165 Wi="":FOR 1=1 TO 37:FQR J=l TO 20: 
A(I,J!=0:NEXT J:NEXT I 

Beginning of word-entry loop. 

170 Z=Z+1 



180 POSITION 2,22:PRINT "WORD #";Z;": 
";: INPUT A$:IF A$="" THEN 180 
190 IF A$="STOP" THEN 530 

Choose random starting location. 

200 W$tLEN(W$)+l)=A4:W$(LEN<Wt)+l)="t" 
210 U=INT(RND(l)t20)+l:L=INT(RND(l)*37 
)+l 

Check each direction to see If word can 
be written that way. 

220 FDR X=-l TO 1:F0R Y=-l TO 1 

230 IF X=Y AND Y=0 THEN 330 

240 X1=L:Y1=U 

250 FOR C=l TO LEN(At) 

260 X1=X1+X:Y1=Y1+Y 

270 IF Xl>37 OR XK1 OR Yl>20 OR YK1 

THEN B(X+2,Y+2)=0:GQTO 330 

280 IF A(X1,Y1)=0 THEN 310 

290 IF A(Xl,YlX>ASC<At(C f C)) THEN B(X 

+2,Y+2)=0:G0T0 330 

300 B(X+2,Y+2)=B(X+2,Y+2)+l 

310 NEXT C 

320 B(X+2,Y+2)=B(X+2,Y+2)+l:B=B+l 

330 NEXT ViNEXT X 

340 IF B=0 THEN 210 



Select direction. If possible, make word 
intersect with another. 



350 R=2:D=2 

360 FOR X=l TO 3: FOR Y=l TO 3 
370 IF B(X,Y)>B(R,D) THEN R=X:D=Y 
380 NEXT Y:NEXT X 
390 X=R-2:Y=D-2 

400 IF X=-l AND Y=-l AND B(l,l)=l THEN 
420 
410 GOTO 440 

420 X=INT(RND(l)*3)-l:Y=INT(RND(l}t3)- 
1 

430 IF (X=0 AND Y=0) OR B(X+2,Y+2!=0 T 
HEN 420 
440 X1=L:Y1=U 
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Print word on screen, unless user chose 
a blank screen. 

450 FOR C=l TO LEN<A$> 
460 Xl=Xl+XsYi=Yl+Y 

470 A{X1,Y1)=ASC(A*(C,C!! 

480 IF BLANK THEN 500 

490 POSITION Xi+i,¥l:PRINT CHR*(A(X1,Y 

500 NEXT C 

510 B=0;FQR X=l TO 3:F0R Y=l TO 3:B(X, 

Y)=0:NEXT Y:NEXT X 

520 POSITION 2,22:PRINT " 

•;:G0T0 170 

Prepare answer key. 

530 FOR X=l TO 37: FOR Y=i TQ 20 

540 IF A(X,Y)<>0 THEN 560 

550 A(X,Y)=45;P0SITIQN X+i,Y:PRINT "-" 

J 

560 NEXT Y:NEXT X 

570 POSITION 2, 22; PRINT "READY TO PRIN 
Tj TURN ON PRINTER AND HIT 'RETURN' 
";: INPUT AtiGOSUB 680 
580 LPRINT iLPRINT "WORD PUZZLE ANSWER 
KEY" 
590 LPRINT iLPRINT iLPRINT 

Fill in blanks with random letters. 

600 PRINT j PRINT "PLEASE HAIT A NORENT 
FOR HE TO CREATE PUZZLE, . ." 

610 FOR X=l TO 37: FOR Y=l TO 20 

620 IF A(X,Y)<>45 THEN 640 

630 fl=INT(RND(lit26)+65:A(X,Y)=B 

640 NEXT Y:NEXT X 

650 60SUB 680 

660 LPRINT : LPRINT "COMPUTER GENERATED 
WORD PUZZLE" 

670 LPRINT : LPRINT ; LPRINT :BOTO 730 

Print complete puzzle. 

680 LPRINT 

690 FOR X=l TO 37:A*=»" 



692 FOR Y=l TO 20 

695 A$(LEN(A*}+1)=CHR*(A(X,Y)) 

697 A$(LEN(A*)+1)=° " 

700 NEXT Y 

705 A$=At(l,LEN(At)-l) 

710 LPRINT A$:NEXT X 

720 RETURN 

Print word list. 

730 LPRINT : LPRINT : LPRINT "WORD LIST" 

iLPRINT 

740 J=1:F0R 1=1 TO LEN(W$) 

744 IF W*(I,I}="* B THEN LPRINT H$«,I- 

1):J=I+1 

746 NEXT I 

Another copy? If not, then end. 

760 PRINT :PRINT "WOULD YOU LIKE ANDTH 

ER COPY ";: INPUT A$ 

765 IF A$il,l!="Y" THEN LPRINT iLPRINT 

: LPRINT iLPRINT :BOTO 650 
770 END 
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FUGUE 



by William Morris and John Cope 



Fugue is a musical program for an 
Atari with 16K RAM. 

For lovers of serious music, here's a 
program that will play a Bach fugue 
for you, and let you watch it in color 
on your video screen as well. While this 



program does not permit you to con- 
trol the actual music, as many software 
packages do, it does have four voices 
and an intricate interplay thereof, un- 
common for the Atari. 

Type it in and relax. We think you'll 
enjoy it. 



ss ss ss ss ss ss ss ss ss ss ss 
ss ss 

SS Atari BASIC SS 
SS l Fugue' SS 
SS Authors: SS 
SS Hilliaa Horris & John Cape SS 
SS Copyright (c) 1982 SS 
SS SoftSide Publications, Inc SS 
SS SS 

SS SS SS SS SS SS SS SS SS SS SS 

1 REH (c) 1980 Ha. Horris & J. Cope 
10 DM H(3),X(3),Y(3):R=RND(0)tl5 

Title page. 

20 GRAPHICS 2+16:SETC0LQR 4,3,2:CQL0R 
32:PL0T 6,5:? f6;"FUGUE":F0R TT=1 TO 2 
000:NEXT TT 



Draw four lines, and place the "notes" 
at the left edge. 



210 GRAPHICS 3+16:SETCQL0R 0,B,9:SETC0 
LOR 1,8,5:SETC0L0R 2,9,2:SETC0L0R 4,R, 




220 COLOR 3 

230 FOR 2=0 TO 3:PL0T 0,Zt5+3sDRAHTQ 3 

9,Zt5+3:NEXT Z 

240 FOR Z=0 TO 3:H(Z>=0:XiZ!=3sNEXT Z 



Jump to line 330 when an OUT OF DATA 
error occurs. 



250 TRAP 330 



For each of the 4 voices (Z=.0'to 3), read 
the note (Y), then plot it at the proper 
position (W) on the proper line (X). 



300 FOR Z=0 TO 3:READ Y:Y(Z)=Y:C0L0R 3 
:PL0T W(Z),X(Z):C0L0R 1:W(Z)=INT(Y(Z)/ 
6)iX(Z)=Z»5+3:PL0T W(Z),X(Z):NEXT Z 
310 SOUND 0,Y(0),10,4:SQUND 1,Y(1),10, 
4:S0UND 2,Y(2),10,4:SDUND 3,Y(3),10,4: 
GOTO 300 



Turn off the 4 voices, then restart the 
program. 

330 FOR Z=0 TO 3:S0UND Z,0,0,0:NEXT Z: 
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FOR Z=l TO 500:NEXT Z:RUN 
Data. 



1000 DATA 81,0,0 

1,0,0,0 

1010 DATA 53,0,0 

3,0,0,0 

1020 DATA 68,0,0 

8,0,0,0 

1030 DATA 68.0,0 

2,0,0,0 

1040 DATA 81,0,0 

8,0,0,0 

1050 DATA 72,0,0 

1,0,0,0 

1060 DATA 85,0,0 

2,0,0,0 

1070 DATA 108,0, 

0,108,0,0,0 

1080 DATA 81,0,0 

108,0,0,0 

1090 DATA 72,0,0 

108,0,0,0 

1100 DATA 68,0,0 

1,0,0,0 

1110 DATA 72,0,0 

108,0,0,0 

1120 DATA 81,0,0 

81,0,0,0 

1130 DATA 72,0,0 

72,0,0,0 

1140 DATA 68,0,0 

1,0,0,0 

1150 DATA 72,0,0 

60,0,0,0 

1160 DATA 68,0,0 

8,0,0,0 

1170 DATA 72,0,0 

2,0,0,0 

1180 DATA 81,0,0 

72,0,0,0 

1190 DATA 68,0,0 

7,0,0,0 

1200 DATA 45,108 



,0,81,0,0,0,81,0,0,0,8 
,0,53,0,0,0,53,0,0,0,5 
,0,68,0,0,0,68,0,0,0,6 
,0,68,0,0,0,72,0,0,0,7 
,0,81,0,0,0,68,0,0,0,6 
,0,72,0,0,0,81,0,0,0,8 
,0,85,0,0,0,72,0,0,0,7 
0,0,108,0,0,0,108,0,0, 
,0,81,0,0,0,108,0,0,0, 
,0,72,0,0,0,108,0,0,0, 
,0,68,0,0,0,72,0,0,0,8 
,0,72,0,0,0,108,0,0,0, 
,0,81,0,0,0,108,0,0,0, 
,0,72,0,0,0,108,0,0,0, 
,0,68,0,0,0,72,0,0,0,8 
,0,108,0,0,0,53,0,0,0, 
,0,72,0,0,0,81,0,0,0,6 
,0,81,0,0,0,85,0,0,0,7 
,0,108,0,0,0,81,0,0,0, 
,0,60,0,0,0,53,0,0,0,4 
,0,0,47,108,0,0,53,108 



,0,0,45,108,0,0 

1210 DATA 47,72,0,0,53,72,0,0,57,72,0, 

0,47,72,0,0 

1220 DATA 53,91,0,0,53,91,0,0,72,91,0, 

0,72,91,0,0 

1230 DATA 53,91,0,0,53,91,0,0,47,96,0, 

0,47,96,0,0 

1240 DATA 45,108,0,0,40,108,0,0,45,91, 

0,0,40,91,0,0 

1250 DATA 45,96,0,0,40,96,0,0,45,108,0 

,0,40,108,0,0 

1260 DATA 35,114,0,0,40,114,0,0,35,96, 

0,0,33,96,0,0 

1270 DATA 35,144,0,0,40,144,0,0,45,144 
,0,0,47,144,0,0 

1280 DATA 45,108,0,0,35,108,0,0,40,144 
,0,0,35,144,0,0 

1290 DATA 57,96,0,0,35,96,0,0,40,144,0 
,0,35,144,0,0 

1300 DATA 53,91,0,0,35,91,0,0,40,96,0, 
0,35,108,0,0 

1310 DATA 57,96,0,0,35,96,0,0,40,144,0 
,0,35,144,0,0 

1320 DATA 45,108,0,0,53,108,0,0,57,144 
,0,0,53,108,0,0 

1330 DATA 40,96,0,0,53,96,0,0,57,144,0 
,0,53,96,0,0 

1340 DATA 35,91,0,0,53,91,0,0,57,96,0, 
0,53,108,0,0 

1350 DATA 40,96,0,0,53,144,0,0,57,72,0 
,0,53,81,0,0 

1360 DATA 72,91,0,0,72,96,0,0,45,108,0 
,0,45,91,0,0 

1370 DATA 81,96,0,0,81,108,0,0,47,114, 
0,0,47,96,0,0 

1380 DATA 91,108,0,0,91,144,0,0,72,108 
,0,0,72,96,0,0 

1390 DATA 53,91,0,0,53,81,0,0,45,72,0, 
0,45,64,0,0 

1400 DATA 50,60,0,0,50,68,0,0,35,60,0, 
0,35,53,0,0 

1410 DATA 00,60,0,0,00,68,0,0,00,72,0, 
0,50,60,0,0 

1420 DATA 53,68,0,0,53,72,0,0,40,53,0, 
0,40,60,0,0 
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1430 DATA 00,68,0,0,00,72,0,0,00,81,0, 

0,53,68,0,0 

1440 DATA 60,72,0,0,68,72,0,0,60,81,0, 

0,53,81,0,0 

1450 DATA 60,85,0,0,35,85,0,0,40,108,0 
ft tc ifta ft ft 

, v, git| iVU, V, V 

1460 DATA 68,81,162,0,40,81,162,0,42,8 

1,162,0,40,81,162,0 

1470 DATA 72,0,108,0,45,0,108,0,47,0,1 

08,0,45,0,108,0 

1480 DATA 40,0,136,0,40,0,136,0,40,108 

,136,0,40,108,136,0 

1490 DATA 40,81,136,0,40,81,136,0,40,7 

2,144,0,40,72,144,0 

1500 DATA 0,68,162,0,0,60,162,0,0,68,1 

36,0,0,60,136,0 

1510 DATA 0,68,144,0,0,60,144,0,0,68,1 

62,0,0,60,162,0 

1520 DATA 0,53,173,0,0,60,173,0,0,53,1 

44,0,0,50,144,0 

1530 DATA 0,53,217,0,0,60,217,0,0,68,2 

17,0,0,72,217,0 

1540 DATA 68,108,162,0,53,108,162,0,60 

,0,217,0,53,0,217,0 

1550 DATA 85,121,144,0,53,121,144,0,60 

,0,217,0,53,0,217,0 

1560 DATA 81,108,136,0,53,108,136,0,60 

,0,144,0,53,0,162,0 

1570 DATA 85,121,144,0,53,121,144,0,60 

,0,217,0,53,0,217,0 

1580 DATA 68,00,162,0,68,81,162,0,68,8 

5,217,0,68,81,162,0 

1590 DATA 60,0,144,0,60,81,144,0,60,85 

,217,0,60,81,162,0 

1600 DATA 53,0,136,0,53,81,136,0,53,85 

,144,0,53,81,162,0 

1610 DATA 60,0,144,0,60,81,217,0,60,85 

,108,0,60,81,121,0 

1620 DATA 0,108,136,0,0,108,144,0,68,1 

08,162,0,68,108,136,0 

1630 DATA 0,121,144,0,0,121,162,0,72,1 

21,173,0,72,121,144,0 

1640 DATA 0,136,162,0,0,136,217,0,108, 

136,162,0,108,136,144,0 

1650 DATA 81,0,136,0,72,0,121,0,68,0,1 



08,0,81,0,96,0 

1660 DATA 72,0,91,217,72,0,96,217,53,0 

,108,217,53,0,91,217 

1670 DATA 57,0,96,144,57,0,108,144,47, 

0,114,144,47,0,96,144 

i LDfi fVATA 7C A iAD iDI 77 A 4 AO tfln 7C 

,0,144,182,40,0,144,182 
1690 DATA 45,0,108,182,47,0,108,182,53 
,0,96,193,57,0,96,193 
1700 DATA 53,0,91,217,53,0,81,217,0,0, 
91,182,0,0,81,182 

1710 DATA 33,0,91,193,33,0,81,193,0,0, 
91,217,0,0,81,217 

1720 DATA 47,0,72,230,47,0,81,230,0,0, 
72,193,0,0,68,193 

1730 DATA 0,0,72,230,0,0,81,230,35,0,9 
1,230,35,0,96,230 

1740 DATA 35,0,91,217,35,0,72,217,35,0 
,81,217,35,0,72,217 

1750 DATA 35,0,114,193,35,0,72,193,35, 
0,81,193,35,0,72,193 
1760 DATA 35,0,108,182,35,0,72,182,35, 
0,81,193,35,0,72,217 
1770 DATA 35,0,114,193,35,0,72,193,35, 
0,81,193,35,0,72,193 
1780 DATA 35,0,91,217,35,0,108,217,35, 
0,114,217,35,0,108,217 
1790 DATA 35,0,81,193,35,0,108,193,35, 
0,114,193,35,0,108,193 
1800 DATA 35,0,72,182,35,0,108,182,35, 
0,114,193,35,0,108,217 
1810 DATA 35,0,81,193,35,0,108,193,35, 
0,114,193,35,0,108,193 
1820 DATA 40,0,91,217,35,0,91,217,33,0 
,96,217,35,0,108,217 
1830 DATA 40,0,114,230,45,0,108,230,47 
,0,114,230,53,0,108,230 
1840 DATA 53,0,108,217,53,0,108,217,53 
,0,108,217,53,0,108,217 
1850 DATA 53,0,108,217,53,0,108,217,53 
,0,108,217,53,0,108,217 
1860 DATA 53,0,108,217,53,0,108,217,53 
,0,108,217,53,0,108,217 
1870 DATA 53,0,108,217,53,0,108,217,53 
,0,108,217,53,0,108,217 
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Plight of the 
Bumblebee 



by William Morris 
and John Cope 



Flight of the Bumblebee is a musical 
animated graphics program for an 
Atari with 16K RAM. 

Those of you without culture may 
have to be informed that The Flight of 
the Bumblebee is not a beekeeper 
simulation, but rather a classic tune 
from Rimsky-Korsakoff's 1900 opera, 
The Tale of the Tsar Saltan. The 
authors of this program, whose names 
are familiar to regular SoftSide 
readers, have digitized and animated 
this great Russian composer's work to 
suit the music and graphic capabilities 



of the Atari computer. 

No special instructions are needed; 
you just type in the program of your 
choice and RUN. 

Variables 

UN: The pitch of the note to be 
played by the sound routine. 
UB: Memory location used in the 
routine to set the three graphics 
modes used in the title page. 
UC: Memory location used in moving 
the redefined character set. 
UZ, Z: Counters. 



ss ss ss ss ss ss ss ss ss ss ss 

SS S3 

SS Atari BASIC SS 

SS 'Flight of the Buablebee' SS 
SS Authors: SS 

SS Williai Morris & John Cops SS 
SS Copyright <c! 1982 SS 
SS SoftSide Publications, Inc SS 
SS SS 

SS SS SS SS SS SS SS SS SS SS SS 



Set up a jump to line 19999 when the 
data are all read. Reserve memory for a 
redefined character set. 

10 TRAP 19999: 6DSUB 30300 
Title display. 

20 60SUB 30200: POKE B7,2:P0SITI0N 3,1: 

? #6; "THE BUMBLE BEE" 

30 POKE 87,1: POSITION 1,7:? 86; " by ria 

skv korsakoff rPOKE 752,1 

40 POKE 87,0,-POSITION 5,14:? "(c) Hi. 

Horris & i. Cope 1981" 

100 G0SUB 30310 

Set up the graphics display. Line 110 
establishes the colors to be used. Line 



130 sets up the "text window." Line 140 
draws the "grass." Lines 150-160 use 
redefined characters to draw the 
"flowers." Lines 170-190 draw the 
"beehive." Note: the COLOR 87, 130, 
214, and 215 statements are not 
misprints; they are a method of printing 
redefined characters. 

110 GRAPHICS 1:P0KE 756,UC/255+2:SETC0 
LOR 0,15,2:SETC0L0R i,14,12:SETC0L0R 2 
,il,0:SETCOLQR 3,3,0:SETCQL0R 4,8,4 
120 POKE 752,1 

130 ? " ! The Bumble Bee 3":? " v":? " 

froffl The Legend of Tsar Saltan :? 
N. Rissky-Korsakoff 

* ■ 
J 

131 REM Line 130: Replace ! with 
<CTRL>B. Replace 3 with <CTRL>A 

140 COLOR 215: FOR Z=14 TO 19sPL0T 0,Z: 
DRAHT0 19,Z:NEXT Z 

150 FOR Z=0 TO 9: IF Z=5 OR Z=7 THEN NE 
XT Z 

160 COLOR 130:PL0T Z,12:C0L0R 214:PL0T 
Z,13:NEXT Z 
170 COLOR 4:PL0T 14,8:C0L0R 3:PL0T 15, 
8:C0L0R 5:PL0T 16,8:C0LQR 3:PL0T 14,9: 
DRAWT0 16,9 
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ISO COLOR 87:F0R Z=ll TO 15 STEP 2:PL0 
T 12,Z:DRAWT0 18,Z:NEXT ZjCOLOR 4:PL0T 

13,9:CQL0R 5:PL0T 17,9 
190 COLOR 3:F0R Z=10 TO 14 STEP 2:PL0T 

12,Z:DRAWT0 18,Z:NEXT ZjCOLOR 4:PL0T 
12,10iC0L0R 5iPL0T 18,10 

Sound and graphics displays are 
integrated in line 200. Line 220 erases 
the bee before returning to line 200 for 
the next plot position. 

200 COLOR 1;READ UNsPLOT UN/9,12-UN/15 

; SOUND 0, UN, 10, 8 

210 FDR Z=l TO 15:NEXT Z 

220 SOUND 0,0,0,0:COLOR 0:PL0T UN/9,12 

-UN/15:60T0 200 

Data for redefined characters. 



1000 

1001 

1002 

1003 

170 

1004 

1005 



1010 

1011 

255 



DATA 0,0,0,0,0,0,0,0 
DATA 216,81, 115,214, 116,30,31,14 
DATA 40,146,146,214,254,124,56,16 
DATA 170, 170, 170, 170, 170, 170, 170, 

DATA 0,2,10,42,42,170,170,170 
DATA 0, 128, 160, 168, 168, 170, 170, 17 

DATA 17,19,151,222,80,112,16,16 
DATA 255, 255, 255, 255, 255, 255, 255, 



Data for music. 

1040 DATA 96,102,108,114,108,114,121,1 

28,96,102,108,114,108,114,121,128 

1060 DATA 96,102,108,114,121,128,136,1 

44,153,144,136,128,121,114,108,102 

1080 DATA 96,102,108,114, 121, 91, 96,102 

,96,102,108,114,121,114,108,102 

1100 DATA 96,102,108,114,121,91,96,102 

,96,102,108,114,121,114,108,102 

1120 DATA 96,102,108,114,108,114,121,1 

28,121,114,108,102,96,91,96,102 

1140 DATA 96,102,108,114,108,114,121,1 

28,121,114,108,102,96,85,81,76 

1160 DATA 72,76,81,85,91,68,72,76,72,7 

6,81,85,91,85,81,76 



1180 DATA 72,76,81,85,91,68,72,76,72,7 

6,81,85,91,85,81,76 

1200 DATA 72,76,81,85,81,85,91,96,91,8 

5,81,76,72,68,72,76 

1220 DATA 72,76,81,85,91,96,102,96,91, 

oc o< ~il -in lo tn it 

□ lJjQI, /Oj tL f QO,f£j /Q 

1240 DATA 72,144,144,144,144,144,144,1 
44,136,153,136,153,136,153,136,153 
1260 DATA 144,144,144,144,144,144,144, 
144, 136, 153, 136, 153, 136, 153, 136, 153 
1280 DATA 144,136,144,153,144,136,144, 
153, 144, 136, 144, 153, 144, 136, 144, 153 
1300 DATA 144,136,128,121,114,121,128, 
136, 144, 136, 128, 121 ,114, 108, 102,96 
1320 DATA 108,108,108,108,108,108,108, 
108,102,114,102,114,102,114,102,114 
1340 DATA 108,108,108,108,108,108,108, 
108,102,114,102,114,102,114,102,114 
1360 DATA 108,102,108,114,108,102,108, 
114, 108, 102, 108, 114, 108, 102, 108, 114 
1380 DATA 108,102,96,91,85,91,96,102,1 
08,102,96,91,85,81,76,72 
1400 DATA 53,57,60,64,68,50,53,57,53,5 
7,60,64,68,64,60,57 

1420 DATA 53,57,60,64,60,64,68,72,68,6 
4,60,57,60,57,53,50 

1440 DATA 47,50,53,57,53,57,60,64,60,6 
4,68,72,76,81,85,91 

1460 DATA 96,91,96,102,96,91,96,102,96 
,91,96,102,96,91,96,102 
1480 DATA 96,91,96,102,96,91,96,102,96 
,91,96,102,96,91,96,102 
1500 DATA 47,47,47,47,47,47,60,60,72,7 
2,91,91,72,72,60,60 
1520 DATA 47,47,47,47,47,47,60,60,72,7 
2,91,91,72,72,60,60 
1540 DATA 47,47,47,47,47,47,47,47,47,4 
7,47,47,47,47,47,47 
1560 DATA 96,96,96,96,96,91,85,81,76,7 
2,68,64,60,57,53,50 

1580 DATA 47,50,53,57,60,45,47,50,47,5 
0,53,57,60,57,53,50 
1600 DATA 47,50,53,57,60,45,47,50,47,5 
0,53,57,60,57,53,50 
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1620 DATA 47,50,53,57,53,57,60,64,60,5 

7,53,50,47,45,47,50 

1640 DATA 47,50,53,57,53,57,60,64,60,5 

7,53,50,47,42,40,37 

1660 DATA 35,37,40,42,45,33,35,37,35,3 

7,40,42,45,42,40,37 

1680 DATA 35,37,40,42,45,33,35,37,35,3 

7,40,42,45,42,40,37 

1700 DATA 35,37,40,42,40,42,45,47,45,4 

2,40,37,35,33,35,37 

1720 DATA 35,37,40,42,47,45,42,40,37,3 

5,33,31,29,27,25,24 

1740 DATA 23,24,25,27,29,21,23,24,23,2 

4,25,27,29,27,25,24 

1760 DATA 23,24,25,27,29,21,23,24,23,2 

4,25,27,29,21,23,24 

1780 DATA 85,81,76,72,68,64,60,57,53,5 

7,60,64,60,64,68,72 

1800 DATA 76,72,68,64,60,57,53,50,47,4 

5,47,50,47,45,47,50 

1820 DATA 47,81,76,72,68,64,60,57,53,5 

7,60,64,60,64,68,72 

1840 DATA 76,72,68,64,60,57,53,50,47,4 

5,47,50,47,42,40,37 

1860 DATA 35,37,40,42,40,42,45,47,45,4 

7,50,53,57,60,64,68 

1880 DATA 72,76,81,85,81,85,91,96,91,9 

6,102,108,114,121,128,136 

1900 DATA 144,136,144,153,144,136,144, 

153, 144, 136, 144, 153, 144, 128, 121, 108 

1920 DATA 96,91,96,102,96,91,96,102,96 

,91,96,102,96,85,81,76 

1940 DATA 72,81,85,91,96,102,108,114,1 

21,128,136,153,144,136,128,121 

1960 DATA 114,108,102,96,91,85,81,76,7 

2,68,64,60,57,53,50,47 



s 



1980 DATA 35,35,35,35,35,35,35,35,72,7 
2,72,72,96,96,96,96 

Plot the bee's final position, then restart 
the program. 

19999 SOUND 0,144, 10, 8: COLOR 1:PL0T 15 
,7:REST0RE :F0R Z=l TO 64:READ X:NEXT 
Z:TRAP 19999-.S0UND 0,0,0,0 

20000 FOR Z=l TO 400; NEXT Z : 60TG 110 

Adjust the screen display to permit the 
use of three graphics modes in the title 
display. 

30200 GRAPHICS 0:SETC0L0R 2,8,4:SETC0L 
OR 4,8,4:UB=PEEK(560)+PEEK(561>*256+4: 
POKE UB-1,70:PQKE UB+2,7:P0KE UB+3,7 
30210 FOR UZ=4 TO 8:P0KE UB+UZ,6:NEn 
UZ-.POKE UB+22,65:P0KE UB+23, PEEK (560): 
POKE UB+24, PEEK (561 hSETCOLOR 3,3,0 
30220 SETCOLOR 1,5,0: RETURN 

Allocate memory space for the redefined 
character set, then read the data for the 
redefinitions. 

30300 POKE 106,PEEK(106)-5:RETURN 
30310 UC=256*(PEEK(106)+1):F0R UZ=0 TO 
1023:P0KE UC+UZ,PEEK!57344+UZ):NEXT U 
Z 

30320 POKE 756,UC/256:F0R UZ=512 TO 55 
9:READ UY:P0KE UC+UZ,UY:NEXT UZ 
30330 FOR UZ=944 TO 959: READ UY:P0KE U 
C+UZ,UY:NEXT UZ:RETURN 
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by Gary Cage 

Atari version by Rich Bouchard 



Melody Dice is a musical game pro- 
gram for an Atari with 24K RAM. 

This is a computerized adaptation of 
a game in which there are 60 flash 
cards, each containing one measure of 
a song by Scott Joplin. Ten of these 
cards are picked at random by rolling a 
pair of dice five times. The numbers 
rolled are added to the roll number to 
determine the numbers of the cards. 
You then take these ten cards to the 
piano, and play the "composition," 
which Scott Joplin never wrote, but is 
nonetheless his music. 

I adapted this format to the com- 
puter. The program consists of a dice 
routine to choose the "cards" at ran- 
dom, a music routine to play them, a 
graphics routine to display the music as 
it is being played, and routines to save 
or recall a created song to or from disk 
or tape. In this case, the cards consist 
of strings of numbers in groups of six. 
The first three numbers represent the 
note to be played, and the second three 
represent the note's duration. 

The program includes a Machine 
Language routine, which draws the 
high-resolution notes and ensures pro- 
per note duration. Atari BASIC was 
too slow to perform this function, so 
SoftSide's Alan J. Zett worked out this 
special routine. 

Variables 

A(i): Holds cards corresponding to 
die A's throw. This is the only 
variable used in the playback routine. 
AA(i): Holds A cards while B is being 



transferred to A. 

AB: Lines up the five cards for each 
die. 

AN, AN$: Player's response. 
B(i): Holds cards corresponding to 
die B's throw. 

BH, BV: Horizontal and vertical 
locations to print numbers on die B. 
C: Card number (1-60). 
DA: Number thrown on die A. 
DB: Number throw on die B. 
DK: Code that determines to which 
line the error-trap routine ought to 
return. DK = means go back to the 
SAVE routine; DK = 1 means go back 
to the RECALL routine. 
ER: Error code. 
H: Variable for HTABs. 
HC: Horizontal clear variable for 
dice routine. 

I, II: General counter variables. 
KEY: Value of pressed key. 
L: Note length. 

LL: Cumulative length of notes. 
Determines when a measure is full. 
MO: Increments the column in which 
numbers thrown on the dice are 
displayed. 

MS: Measure number. 
N: Note pitch. 

NA$: Program author's name; used 
for title page. 

NN, NN%: Hold a value to add 
notes to the Y axis when drawing 
notes; this determines where the note 
is drawn. 

S$: Name given to a saved song. 
SW: Switch to keep track of whether 
a FOR loop has been used more than 
once. (0 = no, l=yes). 
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T: Toss number. 

V: Variable for HTABs. 

VA: Value to be POKEd into 

memory. 



VC: Vertical clear variable for dice 

routine. 

X, Y: x- and y-axis values. 



ss ss ss ss ss ss ss ss ss ss ss 
ss ss 

SS Atari BASIC SS 
SS 'Helody Dice' SS 
SS Author: 6ary Cage SS 
SS Translator: Rich Bouchard SS 
SS Copyright (cJ 1982 SS 
SS SoftSide Publications, Inc SS 
SS SS 

SS SS SS SS SS SS SS SS SS SS SS 



Main program. This is essentially a 
menu. 



5 CLR ;0PEN #2,4,0, "K:° 

10 60T0 20 

12 SOUND 0,N,10,10 

14 FOR ZZ-1 TO L/2:NEXT ZZ:S0UND 0,0,0 
,0:F0R ZZ=1 TO 5:NEXT ZZsRETURN 
20 GRAPHICS 
30 G0SUB 1000 
40 G0SUB 2000 

50 ? .•? "Would you like instructions ( 
Y/N) ? "; 

60 GET #2,AN:AN*=CHR*(AN) 

70 IF AN*="N" THEN 100 

80 IF ANt<>"Y" THEN 60 

90 G0SUB 2500 

100 GRAPHICS 

110 POSITION 6,3:? "W Bould you like 
to:" 

120 ? :? ,"1) Play a song in teiory?" 

130 ? ,°2) Create a nes song?" 



140 ? ,"3) Play a song fros nedia" 

142 ? ,"4! Quit?" 

150 POSITION 14,13:? "Nuiber-> "j 

i60 GET #2,AN 

170 AN=AN-48:IF AN<1 OR AN>4 THEN 160 

175 IF AN=1 THEN 60SUB 4000:G0T0 100 

180 IF AN=2 THEN AB=1:60T0 3000 

190 IF AN=3 THEN GOTO 6000 

200 GRAPHICS 0: PRINT "Okay ... Bye": EN 
D 

Initialize C$(l) and load note routine into 
memory. 

1000 REH 

1090 DIH C$12000), C(61),Z$(120),NN(21) 
,AN$(13),X$(60) 

1092 DIN A(10),AA(10),B!10) 

1094 READ Z$:F0R T=l TO LEN(Zt) STEP 2 
:A=ASC(Z$1T,T))-48:IF AMI THEN A=A-7 

1096 A=Atl6+ASC(Zt(T+l,T+l))-4S:IFZ$( 
T+1,T+1)>"3 8 THEN A=A-7 

1098 Xt(LEN!X$5+l)=CHR$(A):NEXT T 

1100 RESTORE 10000:FQR 1=0 TO 60 

1110 READ Zi:C(I)=LEN(C$)+!:C$(LEN(«) 
+1)=Z* 

1120 NEXT I:C!61!=LEN(Cf)+l 

1140 NN(0)=-4:NN<i)=-2:NN(2)=0:NN(3)=0 

:NN(4)=2:NN!5)=4:NN(6)=6:NN(7)=6 

1142 NN!8)=8:NN(9)=0:NN(10)=10:NN(11)= 

10:NN(12)=12:NN(13)=12:NN(14)=0 

1150 NN(!5)=14:NN(16)=14:NN(17)=0:NNfl 
8)=16:NN!19)=0:NN!20!=1B:NN(21)=18 

1160 RETURN 
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Title page. For the music, the routine 
divides C$(0) into groups of six 
characters. The first three characters of 
each group provide the value for N 
(note); the last three, for L (length). 



2000 GRAPHICS 2: POKE 752,1:SETC0L0R 2, 
0,0 

2020 POSITION 6,3:PRINT *6:"NEL0DY n iPR 
INT #6: PRINT #6j" dice" 

2050 REH 

2060 PRINT " By G. Cage tt R. Boucha 
rd"; 

2070 A=PEEK 1560) +PEEK (561 ) *256: HEN=PEE 
K!A+4)+PEEK(A+5>»256+200 
2080 FOR 11=1 TO C(l)-1 STEP 6:N=VAL(C 
* II I f 1 1 +2 } ) s L=VAL <C* ( 1 1 +3, 1 1 +5) > s SOUND 
0,N, 10,10 

2090 A=USR!ADR(Kt),HEH,L/8)jNEn IhSD 
UNO 0,0,0,0 

2100 FOR 1=1 TO 500: NEXT I 
2110 GRAPHICS 0: RETURN 

Instructions. 

2500 G0SUB 2900 

2510 FOR 1=1 TO 500sNEXT I 

2530 ? " Isagine if you Hill, that th 

ere are 60 cards stored soaewhere in A 

tari," 

2532 ? "each containing portions of m 

sic stolen froi Scott Joplin." 

2540 ? :? " Not) what if you sere to j 

uible up those cards in a randoa ord 

er and play"; 

2542 ? "thea on an instruaent. Hould 

they sound as good as the originals 

2550 ? i? "Probably not. But thea aga 

in, who knows? At any rate, you wo 

uld have" 

2552 ? "yourself an original coipositi 

on inspired by one of the greats 

in swsic." 

2560 ? :? "And if you didn't like it, 



you could six up the cards once aore 

and have" 

2562 ? "soaething coapletely different 

2570 REH 

2580 POSITION 6,23s? "< Press RETURN t 

o continue >"; 

2590 G0SUB 2800 

2600 G0SUB 2900 

2610 PRINT " Can't play an instruaent 

or read ausic? Hell, that's where 

Atari coaes": 

2612 ? "in. You will be shown a pair 
of dice. Press the space bar to stop th 
era froa" 

2620 ? "spinning, and the nuabers on y 
our throw will be displayed. This 

is done for a total of 5 tries." 
2630 ? ■.? " Each nuaber of the die co 
rresponds to a particular card in aea 
ory depen-" 
2632 ? "ding on the tiae it was thrown 

(1st try, 2nd try, etc.). Atari" 
2640 ? "asseables these together and y 
ou are asked if you want to hear the 
final product, or try again." 
2650 ? :? " If you wish to have it pi 
ayed, the ausic will be accoapanied b 
y its" 

2652 ? "musical notation (of sorts)." 
2660 B0SUB 2800 
2670 G0SUB 2900 

2680 ? "After listening to your coapos 
ition, you will be asked if you wish 
to save" 
2682 ? "it on disk, try again, or guit 

altogether." 
2690 ? :? "That's all there is to it." 
2700 G0SUB 2B00 
2710 RETURN 
2800 GET 12, AN 
2810 IF AN0155 THEN 2800 
2820 RETURN 

2900 GRAPHICS 0:? " I INSTRUCT 
IONS *":? 



:? : RETURN 
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Dice routine. This displays the dice, and 
allows you to stop their spinning. 

3000 GRAPHICS 0:P0KE 752,1 
3010 FOR H=7 TO 15:P0SITI0N H,0:? CHRf 
(160); POSITION H+11,7:? CHRt(160);:NE 
XT H 

3020 FOR V=0 TO 8:P0SITI0N 15,v:? CHR* 
(160)i:P0SITI0N 26,7+V:? CHR*(160);:NE 
XT V 

3030 FOR H=15 TO 7 STEP -hPOSITION H, 
8:? CHR*U60);:P0SITIQN 11+H,15:? CHR$ 
(I60);:NEXT H 

3040 FOR V=B TO STEP -1:P0SITI0N 7,V 
:? CHR$U60);:PQSITI0N 18,7+V:? CHR$(1 
6Q);:NEXT V 

3050 V=10:H=9:PQSITIQN H,V:? CHR$tl60) 
;:P0SITI0N H+4,V:? CHR$!160); POSITION 
H+ll,V+7:? CHR$(160); 
3060 POSITION H+15,v+7:? CHR*(160); 
3070 GOSUB 3360 
3080 GOSUB 3430 

3090 T=0:DA=INT(RND(0)*6)+i:DB=INT(RND 
(0)*6>+l:HQ=0 
3100 GOSUB 3470 
3110 GOSUB 3500 
3120 H=8sV=3 

3130 BH=0:BV=0:0N DA GOSUB 3190,3210,3 
230,3250,3270,3290 

3140 BH=11:BV=7:0N DB GOSUB 3190,3210, 
3230,3250,3270,3290 
3150 REM 
3160 GOSUB 3600 

3170 IF T>=5 THEN FOR 1=1 TO 500:NEXT 
I: GOTO 3800 
3180 GOTO 3100 

3190 POSITION Ht3+BH,V+l+BVs? "3"; 
3200 RETURN 

3210 POSITION H+BH+1,V+BV-1:? "8";:P0S 
ITION H+5+BH,V+3+BV:? "8°; 
3220 RETURN 

3230 FOR 1=0 TO 4 STEP 2: POSITION H+I+ 
BH+1,V>I+BV-1:? "8";:NEXT I 
3240 RETURN 
3250 GOSUB 3310 
3260 RETURN 



3270 GOSUB 3310:P0SITI0N H+3+BH, V+l+BV 

:? "3"; 

3280 RETURN 

3290 GOSUB 3310:P0SITI0N H+BH+1, V+BV+1 

i? "3"; -.POSITION H+5+BH,V+BV+h? "3"; 

3300 RETURN 

3310 POSITION H+BH+1,V+BV-1:? u a';:POB 

ITION H+5+BH,v+BV-i:? "3";:PQSITI0N H+ 

5+BH.V+3+BV:? B 3"; 

3320 POSITION H+BH+1, V+3+BV:? "3";:RET 

URN 

3330 FOR VC=2 TO 6 STEP 2:P0S1TI0N 9,V 

C:? ' "^POSITION 9+BH,VC+BV:? " 

3340 NEXT VC 

3350 RETURN 

3360 REM 

3370 POSITION 23,0:? " t DICE I " 

3380 POSITION 17,1:? "You are given fi 
ve"; POSITION 17,2:? "tries at the die 

3390 POSITION 17,4:? "Press Space Bar 
to";:PQSITION 17,5:? "stop thea spinni 
ng"j 

3400 POSITION 28,15:? "> Try # <" 
3410 REH 
3420 RETURN 
3430 REH 

3440 POSITION 2,20:? "DIE A:" 
3450 POSITION 2,22:? "DIE B;" 
3460 RETURN 
3470 T=T+1 

3480 POSITION 36,15:? T; 
3490 RETURN 

3500 V=10:H=11:POSITION H,V:PRINT DA:P 
OSITION HH1,V+7:PRINT DB 
3510 GOSUB 3530 
3520 RETURN 

3530 KEY=PEEK(764):IF KEY=33 THEN 3560 
3540 DA=INT(RND(l)*6Hl:DB=INT(RND(l)t 
6)+l 

3550 POP -.GOTO 3500 
3560 GOSUB 3330 

3570 POKE 764,255:P0SITI0N MO+9,20:? D 
APPOSITION HO+9,22:? DB; 
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35B0 H0=HO+3 
3590 RETURN 

3600 C=DA*T+<6-DA)*(T-l) 
3610 AIAB)=C 

3620 C=!DBm(6-DB)W-l))+30 
3630 B(AB)=C 
3640 AAiAB)=AiAB) 
3650 AB=AB+1 
3660 RETURN 

3800 GRAPHICS 0:PQSITI0N 6,5:? "--> Do 
you wish to play this":POSITION 10,6*. 
? "song or try again?" 
3B10 POSITION 18,8:? "Type Play or":P0 
SITION 23,9:? "Again." 
3820 POSITION 25,10:? "-> "; 
3830 GET #2,AN:ANt=CHR*(AN) 
3840 IF AN$="A" THEN AB=1:60T0 3000 
3850 IF AN*<>"P" THEN 3830 
3860 GOSUB 4000 
3870 FOR I=i TO 1000: NEXT I 
3880 GRAPHICS 0:? "Play the sane song 
again ? "; 
3890 GET #2, AN 

3900 AN$=CHR*(AN):IF ANt=»N" THEN 5000 
3910 IF ANtOT THEN 3890 
3920 GOTO 3860 



Music routine. This begins with a 
GOSUB to the routine that draws the 
musical staff. The routine at line 4900 
calculates where to draw the notes. The 
note length Is continually added to LL, 
and when this variable's value reaches 
or exceeds 255 (four counts), a measure 
bar is drawn. 



4000 GRAPHICS 0-.G0SUB 4500:SB=0 

4010 FOR 1=1 TO 4 

4020 S0SUB 4300 

4030 NEXT I 

4040 FOR 1=1 TO 3 

4050 GOSUB 4300 

4060 NEXT I 

4070 1=5 

4080 GOSUB 4300 



4090 IF SH=1 THEN 4120 

4100 SH=hF0R 1=1 TO 5:A<I)=B<I):NEXT 

I 

4110 GOTO 4010 

4120 FOR 1=1 TO 5 

4130 A(I)=AA(I! 

4140 NEXT I 

4150 FOR 1=1 TO 3 

4160 60SUB 4300 

4170 NEXT 1:1=5 

4180 60SUB 4300 

4190 RETURN 

4300 FOR II=C(AID) TO C(A(I)+1)-1 STE 

P 6 

4310 N=VAL(Ct(II,II+2)) 

4320 L=vAL(C$(II+3,II+5)) 

4330 IF N>1 THEN SOUND 0,N,10,10 

4340 GOSUB 4900 

4350 NEXT II 

4360 RETURN 

4500 GRAPHICS 24:C0L0R 1:A=PEEK(560)+P 

EEK(561 ) 1256: HEH=PEEK (A+4) +PEEK (A+5) M 

56 

4520 V=10:X=10 

4530 FOR y=10 TO 170 STEP 39:F0R 1=0 T 

20 STEP 5 

4540 PLOT X,Y+I:DRAWTQ X+289,Y+I 

4550 NEXT I: NEXT Y 

4630 X=16iY=6 

4640 FOR 1=0 TO 170 STEP 39 

4650 PLOT X,Y+I:DRAWT0 X,Y+I+28 

4660 REM tmt 

4670 NEXT I 

4690 LL=0:NS=1:X=27 

4700 RETURN 

4900 IF N=l THEN A=USR(ADR(X$),HEt1,L/l 

0-2):GQT0 4930 

4902 NN=INT(NN(N/5.7-10)*1.25+0.5):A=U 
SR(ADR(X*),NEHt(Y+NN+2)t40+INT!X/B),L/ 
10-2) 

4920 IF N=57 THEN PLOT X-4,Y+NN+4:DRAH 
TO X+5,Y+NN+4 

4930 SOUND 0,0,0,0:X=X+8:LL=L+LL 
4950 IF LL>=255 THEN LL=0:PL0T X,Y+4:D 
RAHT0 X,Y+24:X=X+8:MS=HS+1 
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4960 IF HS>4 THEN HS=1: X=27j Y=Y+39 

4970 RETURN 



Save music to disk or tape. 



5000 GRAPHICS 

5010 POSITION 8,2:? "Hould you like to 
save this song <Y/N> ?"; 
5020 GET #2,AN:AN*=CHRJ(AN) 

5030 IF AN*="N" THEN 100 

5040 IF AN$<>"Y" THEN 5020 

5050 POSITION 8,7:? "On tape or disk ( 

T/D) ?"; 

5060 GET #2,AN:AN*=CHRi(AN) 

5070 IF AN$="T" THEN 5260 

5080 IF AN$<>"D" THEN 5060 

5090 REM 

5100 DK=0 

5110 POSITION 14,14:? CHR* (253); "Name 

->'} 

5120 INPUT AN$:Z*!l,2)="D:":Zt!3)=AN$ 

5130 REM 

5140 REN 

5150 OPEN il,8,0,Z* 

5190 FOR 1=1 TO 5 

5200 PRINT tl;A(I) 

5210 PRINT tljB(I) 

5220 PRINT tl;AAU) 

5230 NEXT I 

5240 CLOSE #1 

5250 GOTO 100 

5260 GRAPHICS 0:? " t Store to ta 

pe V 

5270 POSITION 2,4:? "1. Make sure your 

tape is ready to record." 
5280 ? :? "2. Start recording and then 

push 'Return'. Atari Hill retur 
n you to the prograa when finished" 
5290 ? :? "3. If you get an error aess 
age, set uptape again and type 'GOTO 5 
260'" 

5300 OPEN #l,8,0, n C:» 
5310 GOTO 5190 



Recall from tape or disk. 



6000 GRAPHICS 

6010 POSITION 14,7:? "Fros tape or dis 

k (T/D) ?"; 

6020 GET I2,AN:AN*=CHR*(AN) 

6030 IF AN*="T" THEN 6210 

6040 IF AN*<>"D" THEN 6020 

6050 REM 

6060 DK=1 

6070 POSITION 14,14:? CHR$(253>;"Naie 

->"; 

6080 INPUT AN*:Z$(l,2)=»D:":Z*!3)=ANt 

6090 REM 

6100 REM 

6110 OPEN #1,4,0,Z* 

6130 FOR 1=1 TO 5 

6140 INPUT fl,Z:A(I)=Z 

6150 INPUT #1,Z:B(I)=Z 

6160 INPUT #1,Z:AA(I)=Z 

6170 NEXT I 

6180 CLOSE il 

6190 GRAPHICS 0:G0SUB 4000 

6200 GRAPHICS 0:GOTO 100 

6210 GRAPHICS 0:? " t Recall fros 

tape t" 
6220 POSITION 2,4:? "1. Hake sure your 

tape is set up and ready at your ims 
ic progran. " 

6230 ? :? "2. Start recorder on play a 

nd then push 'Return'.* 

6240 ? :? "3. If all goes well, Atari 

will returnto the progras." 

6250 ? :? "4. If you get an error mess 

age, re-runprogran and try again." 

6260 OPEN #1,4,0, "C:" 

6270 GOTO 6130 

Data for note-drawing routine. 

8000 DATA 686885CC6885CB1BA000A97E91CB 
986928A8A97E91CB986928A8A97E91C89B6928 
ABA97E91CB6868A8A514C514F0FC88D0F760 
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Data for music "cards." 



10000 DATA 1440640940641440641140640% 
1 28 1 53064096044 1 53064 1 28064096255 
10010 DATA 068032044064068032064064068 
032064032,0640320640640680320640320640 
32057032064032 

10020 DATA 074032081032076032064064096 
032076032064032,0640320640640730320760 
32081032076032064032 
10030 DATA 064064068032044044068032064 
064 , 0640320570320640320760320720320860 
64076032 

10040 DATA 064032076032064032057064064 
064096032 , 076064086032096096086044 
10050 DATA 094032084032076032128064076 
032086032096032, 0761 40 1 230320940320740 
32 

10040 DATA 074044084032096064064032076 
032096032 , 07606406403207606408 10320740 
64 

10070 DATA 086064064032084044064032086 
064,0010320860320570320720320640320570 
32064032072032 

10080 DATA 072032072044074032072032072 
032074032084032,0720320570440640320720 
32076032072032064032 
10090 DATA 072064072032072064072032086 
064 , 064096068032044032057032044044 
10100 DATA 044160076032072032068032,06 
4064 1 020320960320860320760320720320640 
32 

10110 DATA 064255,064255 
10120 DATA 064096068032064128,06406404 
4032044032044064044044 
10130 DATA 094128094064001064,07606408 
6064096128 

10140 DATA 096064001064096064001064,09 
6064001064096064001064 
10150 DATA 096064001064128032114032102 
032096040001064,096064128064096128 
10160 DATA 102064102032128064102032128 
064,1020321710321380321140641280321140 
64 



10170 DATA 102032108032102032128064128 

032108032102032,0010321280320760320860 

65076032086064 

10180 DATA 001032128032076032102032086 

032076032086032102032,1020321020641140 

32128032136032128032102032 

10190 DATA 128032102032086032064032064 

064086064,103032171032128032102160 

10200 DATA 128032102064096032086064064 

032086032 , 0740320840440740320840320740 

32084044 

10210 DATA 128032102032076032086096086 

064,0860320860640940321020321080321020 

32084032 

10220 DATA 096032068064096064068032096 

064,096064114064076032086064096032 

10230 DATA 096064086032096064102032094 

044 , 096064 1 1 4032096064 1 1 4032096032 1 1 40 

32 

10240 DATA 001032086032068032086032076 

032068032076032086032,0960321140321020 

32096064076032086064 

10250 DATA 114032114064121032114064108 

064 , 0960320960640760320860320960320860' 

64 

10260 DATA 096032096064102032096032096 

032102032114032,1210321140641020320760 

64096064 

10270 DATA 096128086032086064096032,08 

6128086064096064 

10280 DATA 102064001064128064001044,10 

2160086032076032086032 

10290 DATA 102064064032064032064064064 

064, 102064001064128064001064 

10300 DATA 102192064064,10206410206408 

6064064064 
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Music 
Programmer 



by John Rush Elkins 



Music Programmer is a music editing 
program for a 24K Atari (32K with 
disk). 

The use of this program will be ex- 
plained while progressing through an 
example. The musical scale "DO, RE, 
MI" is shown being entered as a 
demonstration program, with eighth 
notes, in four voices. The last note in 
the measure is shown being entered in- 
to the Enter Music routine. 

MUSIC PROGRAMMER 

NOTES AND RESTS ARE ENTERED AND 
EDITED MEASURE BY MEASURE IN 1 TO 
4 VOICES USING A ROUTINE CALLING 
FOR NOTE, DURATION, OCTAVE, AND 
LOUDNESS. MEASURE LENGTH IS 
DETERMINED FROM THE TIME 
SIGNATURE. TIED NOTES, DOTTED 
NOTES, AND TRIPLETS ARE ENTERED 
WITH SUBSCRIPTS. TIED MEASURES 
ARE COMBINED INTO ONE LARGE 
MEASURE. SHARPS AND FLATS ARE 
ENTERED WITH THEIR NOTES SINCE 
THERE ARE NO KEY SIGNA TURES. 
EA CH MEASURE MA Y BE PLA YED FOR 
EDITING BEFORE SA VING. 

EACH MEASURE IS THEN SAVED BY 
TRANSFERRING TO DATA STATEMENTS 
WHICH MUST BE ENTERED INTO THE 
PROGRAM. 

PRESS RETURN TO CONTINUE. 

Music which can be enjoyed on its 
own or entered into other BASIC 
programs. No more than minimal 
musical and programming skills are 
required. However, the ability to 
manipulate the editing features of the 
Atari is required to enter the computer- 
generated DATA statements. 

The Music Programmer utilizes 



musical measures as its "bookkeeper" 
to insure that the notes start and stop 
at the proper place. If a note needs to 
be continued into the next measure, the 
two measures are tied C~^) by the 
note into a double measure which is 
entered as one large measure. 

WHAT IS THE MAXIMUM NUMBER OF 
NOTES — UP TO 16 — YOU WILL NEED 
TO ENTER INTO ANY SINGLE VOICE IN 
ANY MEASURE? MEASURES TIED 
TOGETHER WITH CONTINUING NOTES 
ARE TREATED AS ONE LARGE 
MEASURE. 
?12 

This value (VO in line 818) is required 
to DIMension the arrays to hold the 
notes. The maximum number of notes 
to be entered can be increased (lines 
818, 819, 814); but the smaller the 
value, the more memory is made 
available for saving the notes in DATA 
statements. 

HOW MANY VOICES (1 TO 4) WILL 

YOU NEED 

?4 

The number of voices needed is 
determined by the number of notes 
that must be played at any one time. 
Use of only one voice, playing the 
melody (top) line of notes, will require 
less memory and can be entered faster, 
but will not give the fullness of sound 
of which the Atari is capable. Musical 
notation often does not show rests for 
all voices, so be sure to take care to fill 
out blank spaces in the music with 
rests. It may also be necessary to add 
rests at the beginning of the first 
measure and at the end of the last 
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measure. The computer requires that a 
measure of music be entered in each 
voice selected. 

TIME SIGNATURE? 
WHICH? I FOR 4/4 

£ £*KJI\ J/t kji\ u/a 

3 FOR 2/4 

4 FOR 2/2 
?1 

The time signature gives the measure 
length with the 4/4 (or C) and 2/2 (or 
St) times being equivalent in length to a 
whole note (four counts). The 2/2 
time, as used in the Music Program- 
mer, plays twice as fast as the 4/4 time. 
The 3/4 and 6/8 times are equivalent in 
length to three-fourths of a whole note 
(three counts) and the 2/4 time to a 
half note (two counts). 

TEMPO? FAST TO SLOW 
WHICH? 8 9 1011 12 

WITH 9 OR 11: NO DOTTED 16th NOTES 
AND NO 16th OR DOTTED 8th NOTES 
WITH 2/2 TIME. 

WITH 10 OR 12: NO 16th NOTES WITH 2/2 
TIME. 

WITH 9 OR 12: TRIPLETS ARE ENTERED 
NORMALLY WITH TEMPOS 9 AND 12 
AND AS TWO DOTTED AND ONE 
NORMAL NOTE OF THE NEXT FASTER 
SPEED WITH OTHER TEMPOS. NO 
TRIPLET 16th NOTES WITH 9. 
?10 

The tempo is precisely controlled by 
the computer with the values (8-12) 
representing the duration of a sixteenth 
note in 60ths of a second. Notes with 
durations of less than 8/60ths of a sec- 
ond are not possible because of the 
time required to change notes. The 
menu indicates which durations are ex- 
cluded, either for being too fast or for 
giving fractional values with dotted 
and triplet notes. Care should be taken 
in selecting a tempo which will fit the 
music at hand. For music with triplets, 
you should try to use tempos 9 or 12. 
For example, triplet eighth notes 
( JSS ) with a total duration of a 
quarter note can be entered normally 
as three E3 notes in tempos 9 and 12, 
but must be entered as two dotted six- 



teenth notes (S.) and one sixteenth note 
(S) with other tempos. 

WHAT IS THE TITLE OF YOUR SONG? 

CENTER IN 11th SPACE 
WITH FIRST LINE HERE 
AND SECOND LINE NEXT. 
USE UPPER AND lower 
CASE & INVERSE video 
? DO.RE 

CONTINUE TITLE HERE. 
? mi 




-A*. 



D J 



:B 



\^ octave 4 



2 



£>' 



jsa 



A*- 



Figure 1 

The range of music played by the 
Atari. 

There are two lines provided for the 
title of your song. Your title may go on 
either or both of them. Each line 
should be centered on the eleventh 
space. Inverse video and lower-case let- 
ters are displayed as upper-case letters 
with different colors. Be sure to change 
back to normal upper-case letters. 

ENTER TOTAL NUMBER OF COMBINED 
MEASURES. 

HOW MANY? 1 FOR NO COMBINED 
MEASURES. 

2, 3, 4 COMBINED 

MEASURES. 

LIMIT 12 NOTES PER VOICE. 
1 

More measures can be combined by 
increasing VO in lines 819 and 814 so 
that more notes can be entered, and in- 
creasing CM in lines 997 and 998; but 
such an increase would require more 
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memory to reserve array space, and it 
would be more difficult to edit the 
measure in case of an entry error. 

The following entries can be made 
for the DO, RE, mi demonstration pro- 
gram with eighth notes in four voices: 



VOICE 0: C,E,SM,R,Q.,G,E,4,MF,R,Q. 
VOICE 1: R,E,D,E,4,MF,R,Q.,A,E,4,MF,R,Q 
VOICE 2: SM,E,E,4,MF,R,Q.,B,E,4,MF,R,E 
VOICE 3: R,Q.,F,E,4,MF,R,Q.,QE,5,MF 



The last note entered in the measure is 
shown being entered into the Enter 
Music routine. 



ENTER MUSIC 

THIS IS MEASURE I 

NUMBER OF AVERAGE MEASURES LEFT 

= 59 

VOICE 3: ENTRY 4 

NOTE? 

WHICH? AF.A.AS 

BF.B 
C.CS 
DF.D.DS 
EF.E.ES 
F.FS 
GF.G.GS 
R FOR REST 

ENTER SMFOR SAME NOTE 

-R,Q.,OCTR,OFF 

?C 



The desired notes (A-G) and rests 
(R), with sharps (S) and flats (F), are 
entered here. The octave on the 
musical staff is entered from the menu 
after the next. The range of the Atari is 
over three full octaves, with one note in 
a fourth octave, as illustrated in Figure 
1 . Since the base range is not very low, 
it is often necessary to enter notes in a 
higher octave than that in which they 
are written. 

Notice the prompts with the measure 
number, voice number and entry 
number which will help you keep track 
of where you are. The voice will change 
automatically when the measure is 
completed in that voice, as indicated by 



a bell. You should also pay attention to 
the bottom prompt, for there are many 
times when you can enter SM for the 
same note, especially the same octave 
and loudness. 



VOICE 3: ENTR Y 4, NOTE C 



Total Duration 
VOICE = 
VOICE 1 = 
VOICE 2 = 
VOICE 3 = 



In 



Measure 

160 

160 

160 

140 



And 



Program 

160 

160 

160 

140 



DURATION OF NOTE OR REST? 
WHICH? SIXTEENTH 

EIGHTH 

QUARTER 

HALF 

WHOLE 
ADD . FOR DOTTED NOTES 
ADD 3 FOR TRIPLET NOTES 
ADD TFOR TIED NOTES 

ENTER ED TO EDIT NOTE C 
ENTER SMFOR SAME NOTE 
-C,Q.,OCTR,OFF 
?E 



The notations for the allowed dura- 
tions of notes are S ( js ), E ( J» ), Q ( J ), 
H(J), W(o), and of rests are S ( ?), 
E ( , ), Q ( / ), H (--), W (-). Dotted 
notes such as "E." are 3/2 as long as a 
normal note and triplets such as E3 are 
2/3 as long as a normal note. Triplets 
can only be entered with tempos 9 and 
12; otherwise enter the triplet notes as 
two dotted and one normal note of the 
next faster duration. The duration of 
tied notes such as QT is followed up by 
the duration of the note to which it is 
tied, for example, "E.". No T should 
be added to the last of the tied notes. 
Tied notes are combined into one note 
with a total duration equal to the sum 
of the tied notes. Note that you cannot 
use SM to enter the note or duration 
after entering a tied note. The duration 
of the note entered with SM will be the 
duration of the tied note and not that 
of the note in the SM display, which 
shows only the last duration added to 
the tied note. You should also pay at- 
tention to the ED prompt which allows 
you to edit the note. 
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VOICE 3: ENTR Y 4, NOTE C, DURA TION E 

OCTA VE? 4 GOES UP FROM MIDDLE C 

WHICH? 3, 4, 5, 6 

ENTER ED TO EDIT DURA TION E 

ENTER SMFOR SAME NOTE 

-C.E.OCTR.OFF 

?SM FuR SAME NOTE -C,E, OCTR, uFF 

?S 



The octave menu was 
along with the note menu. 



discussed 



VOICE 3: ENTRY 4, NOTE C, DURATION 
E, OCTAVE 5 

LOUDNESS? 
WHICH? PP,P,MP 

MF.F.FF 

OFF 

NORMAL VALUES: 
MF FOR MELODY 
P FOR ACCOMPANIMENT 

ENTER ED TO EDIT OCTA VE 5 
?MF 

There is much room for experimen- 
tation with loudness, but a value of MF 
for the melody (top) line of notes and P 
for the accompanying notes is a good 
starting place. The assigned values of 
loudness are PP = 2, P = 4, MP = 6, 
MF = 8, F=10, FF=12, and OFF = 0. 
These can be adjusted from 1-15 in 
lines 1184 and 1188. Loudness can also 
be controlled with the Play Music 
routine (lines 30, 91) as explained 
below. Loudness can only be EDited 
by editing the entire measure. 

If it should happen that you enter a 
wrong note and cannot get out of that 
voice, it is possible to BREAK and 
GOTO 5001 to reenter the entire 
measure in that voice. 

MEASURE FULL 
PLAY MEASURE OR 
EDIT MEASURE OR 
SAVE MEASURE 
WHICH? 

ENTER I TO PLAY 

2 TO EDIT 

3 TO SAVE 

The PLAY option lets you listen to 
the measure of music to check how it 
sounds before editing or saving it. 



EDIT MEASURE OF MUSIC 
VOICE? 

WHICH? 0,1,2,3 

?0 

EDIT VOICE 

SAVE MUSIC 

MOVE CURSOR TO LINE NUMBER (LN) 
AND PRESS RETURN TO ENTER INTO 
PROGRAM. THEN TYPE CONT AND 
PRESS RETURN TO CONTINUE. 

LN 

40 ?#6: ?H6;"DO, RE":?tt6: ?%6;"mi" 

STOPPED AT LINE 6514 

CONT 

The first time through the Save 
Music routine, the title can be entered 
into the program for the Play Music 
routine; and if there are fewer than 
four voices, certain "blank" lines are 
entered to remove lines not needed in 
the Play Music routine. Failure to enter 
the "blank" lines will result in incor- 
rect play. If you make a mistake in 
manipulating the edit keys and fail to 
enter a line number correctly, you can 
return from the Play Music menu to re- 
enter the line numbers. 

LN 

101 DATA 121,8,20,0,0,20,0,0,40, 
0, 0, 60, 0, 0, 60, 108, 8,20, 0, 0, 60,96,8,20 
102 DATA 0,0,60,91,8,20,81,8,20, 
0, 0, 60, 0, 0, 60, 72, 8,20, 0, 0,40, 64, 8,20 

103 DATA 0,0,20,60,8,20 

104 DATA 256,0,0 

ENTER LINE NUMBERS AND CONTINUE 
STOPPED A T LINE 7580 

The notes have been placed in order 
of play in DATA statements which 
must be entered into the program for 
the Play Music routine. Each note 
READ by the Play Music routine re- 
quires three values: note, loudness and 
duration. Line 104 includes only the 
"256 flag" in Voice which signals the 
END of play. Line 104 will be replaced 
by new DATA when saving the next 
measure and a new "256 flag" will 
END the play of both measures, etc. It 
may be helpful to keep a record of 
which line numbers correspond to 
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which measures, so that you can 
manually make changes in the DATA 
statements if the music doesn't sound 
right. 



PLAY MUSIC 
PLAY MUSIC OR 

RETURN FOR NEW MEASURE OR 
SAVE ON DISKETTE (CASSETTE) OR 
RE-ENTER LINE NUMBERS 
WHICH? 

ENTER 1 TO PLAY 

2 TO RETURN 

3 TO SA VE 

4 TO RE-ENTER 
?3 



The Play Music menu allows you to 
play all the measures entered, return to 
enter a new measure, or re-enter line 
numbers. (The menu for the cassette 
version is included in parentheses and 
can be entered into the Music Pro- 
grammer by replacing lines 31, 8450, 
8452, 8453, 8454 and 8469 with the 
statements in lines 9031, 9450, 9452, 
9453, 9454 and 9469.) 

The music can be SAVEd to disk (or 
cassette) when completed or when all 
the memory is used up. The music, 
once saved, can be compiled with other 
music (if more than one SAVE is 
needed) by entering one and then the 
other, or can be entered into another 
BASIC program. Be careful not to 
have line numbers between 39 and 101 
end up in the BASIC program since 
they will be wiped out upon entering 
the music program. Since the DATA 
statements are READ faster when they 
are closer to the beginning of the pro- 
gram, it may be advantageous to 
GOTO 500 at the program's start and 
then GOSUB 39 to PLAY MUSIC. 



SAVE ON DISKETTE (CASSETTE) 

SA VE PLA Y PROGRAM AND DATA WITH 
THE INITIAL GROUP OF MEASURES BUT 
ONL Y DA TA IN SUBSEQUENT SA VES. 



INSERT BLANK DISKETTE! (Omitted in 
cassette version) 

ENTER LINE NUMBER AND CONTINUE 

LN 

8460 LIST "D.SONG1. 
ENT",39,104(8460LIST"C",39,104) 

STOPPED A T LINE 8453 

PROGRAM BEING SA VED 

(ON BELL, SET RECORDER TO RECORD 

AND PRESS RETURN.) 

ENTER LINE NUMBER TO CLEAR 
MEMOR Y FOR NEXT GROUP OF 
MEASURES. 

LN 
101 
102 
103 
104 

ENTER LINE NUMBERS AND CONTINUE 
STOPPED A T LINE NUMBER 8465 



For an additional SAVE, GOTO 
8450 before entering the "blank" lines 
to free memory for a new group of 
measures. 



LOAD OR ADD THIS MUSIC PROGRAM 
AND ADDITIONAL DATA TO ANOTHER 
PROGRAM WITH ENTER "D.SONG 

tt.ENT" 
(ENTER "C") 



On the second save of the Play pro- 
gram and DATA with the initial group 
of measures, change 101 to 39 when 
entering line 8460 with SONG2.ENT. 

The Play Music routine (lines 30-91) 
and the Play/Edit Music routine (lines 
700-765, with subroutines at lines 
12-20) depend on the ability of the 
Atari to time itself to l/60th of a sec- 
ond. The music is timed by POKEing 
19 and 20 with (lines 45 and 712), and 
PEEKing at the timer (PEEK 19*256 
+ PEEK 20 at lines 55 and 722) each 
time through the play cycle. All voices 
are sounded simultaneously (lines 50 
and 720) each time through the play cy- 
de, and are turned off with a percepti- 
ble pause (lines 81-84 and 751-754) 
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each time there is a note change (lines 
55-80 and 722-750). The notes are 
changed, voice by voice, whenever the 
time equals or exceeds the time when 
the previous note should stop playing. 

Each voice may be played separate- 
ly. For example, to listen to Voice 
(the melody), LIST 50,80 and insert 
L1=0, L2 = and L3 = after the 
READ statements in lines 60, 70 and 
80. Changes in loudness to values other 
than can also be made. 

Though very conservative para- 
meters for the duration of the fastest 
note have been used in the Music Pro- 
grammer, it is conceivable that with 
some songs there may be an occasional 
mis-ordering of notes because of the 
extra time required to go through each 
cycle of the note-ordering routine. If 
this happens, the "256 flag" probably 
will not be READ by Voice and the 
program will "squawk" instead of 
ENDing. It can be corrected by hitting 
the BREAK key, entering END, GOing 
TO 30, and manually reordering the 
DATA, using the values for the notes 
given in the Atari BASIC Reference 
Manual. 



VARIABLES 

A$: Answer name. 

B$: Bell character. 

C: Column in array. 

C$: Clear screen character. 

CK0-CK3: Checks voices 0-3. = on, 

l = off. 

CM: Consecutive measures. 

D: Duration number. 

D0-D3: Duration of note in voices 

0-3. 

DL: Duration length. 

DM: Duration of measure. 

DT: Duration of tied note. 

D$: Musical name of duration. 

D(0,0)-D(3,0): Total duration of 

voices 0-3 in current measure. 

D(0,l)-D(3,l): Total duration of 

voices 0-3. 



ENT: Entry number. 

H0-H3: Hold a note in voices 0-3. 

= hold, 1= no hold. 

L: Loudness number. 

L0-L3: Loudness of voices 0-3. 

LN: Line number. 

jjiNi. j_,iuc iiuiiiuci cii Sian Oi uAiA. 

LNF: Line number at end of DATA. 

LNS: Line number at which "saving" 

should start. 

L$: Musical name of loudness. 

ML: Amount of memory left. 

MN: Measure number. 

MNT: Measure number total. 

MV: Measure value. 

MVA: Measure value average. 

Computed in line 1000. 

MVT: Measure value total. 

N: Note number. 

NLV: Note limit value. 

NM: Number of measures. 

NV: Number of voices. 

NS: Number of notes saved. 

N0-N3: Notes being played by voices 

0-3. 

N$: Musical name of note. 

N(N.O): Note value. 

N0(V0,0)-N0(V3,0): Order in measure 

of notes V0-V3 in voices 0-3. 

N0(V0,1)-N0(V3,1): Value of note in 

voices 0-3. 

N0(V0,2)-N0(V3,2): Loudness of note 

in voices 0-3. 

N0(V0,3)-N0(V3,3): Duration of note 

in voices 0-3. 

O: Octave number. 

ORD: Order of note in measure. 

0$: Musical name for octave. 

PES: Play, Edit, Save. 

PRS: Play, Return, Save. 

P0-P3: Turn off play in voices 0-3. 

= on, l = off. 

R: Row in array. 

RELN: Re-enter line number. 

R0-R3: Row in voices 0-3. 

SN: Song number. 

ST: Stop from re-entering title. 

= OK to enter, 1 = not OK. 

SV: Save in DATA statements. 

= off, l = on. 

T0-T3: Time to stop note in voices 

0-3. 
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TM: Time of play. 

TS: Time signature. 

TITLES: Title of song. 

V: Voice number. 

V0-V3: Number of note in voices 0-3. 

V0E-V3E: Highest number, of note in 



voices 0-3. 

VN: Value of notes. 

V$: Name of voice. 

WT: Wait for message. Change this 

value in line 800 to change length of 

wait. 



SS SS SS SS SS SS S3 SS SS SS SS 
SS SS 

SS Atari BASIC SS 
SS 'Music Prograsiiier' SS 
SS Author: John Rush El kins SS 
SS Copyright (c) 1982 SS 
SS SoftSide Publications, Inc SS 
SS SS 

SS SS SS SS SS SS SS SS SS SS SS 



=256 THEN N0!V0,0! 



10 SOTO 800 

12 N0=N0(V0,1):IF 

=ORD:P0P :60T0 760 

14 L0=N0 (VO, 2) : D0=N0 (VO, 3) : TG=TO+D0: NO 

< VO , > =DRD : 0RD=0RD+ 1 : RETURN 

16 N1=NHV1,1):L1=N1(V1,2):D1=H1(V1,3) 

:T1=T1+D1:N1!V1,0!=0RD:QRD=0RD+1:RETUR 

N 

18 N2=N2 (V2, i ) :L2=N2 (V2,2): D2=N2 !V2, 3) 

: T2=T2+D2: N2 (V2, 0! =QRD: 0RD=0RD+1 : RETUR 

N 

20 N3=N3(V3,i);L3=N3(V3,2):D3=N3(V3,3) 

: T3=T3+D3: N3 ! V3, 0! =0RD: QRD=QRD+i : RETUR 

N 

30 ? "}":? " MPLflY MUSICS*":? 
:? "PLAY MUSIC OR":? :? "RETURN FOR NE 
H MEASURE OR" 

31 TRAP 30:? :? "SAVE ON DISKETTE OR": 
? :? "RE-ENTER LINE NUMBERS":? :? "WHI 
CH?":? :? "ENTER J, TO PLAY" 

32 ? " 2 TO RETURN:? " 3 TO 
SAVE":?" * 4 *T0 RE-ENTER": INPUT P 

RS 

33 IF PRS=1 THEN 39 

34 IF PRS=2 AND NM<=0 THEN ? CHR$(253) 
:? " NO MORE MEASURES! ": FOR W=l TO HT: 
NEXT W:G0T0 30 

35 IF PRS=2 THEN 990 

36 IF PRS=3 THEN 8450 



37 IF PRS=4 THEN ST=0:LN1=RELN;G0T0 65 
00 

38 ? CHR$ (253): GOTO 30 

39 RESTORE 101: GRAPHICS 2+16:? *6:PRIN 
T 16;" PLay swSIc" 

42 L0=0:N0=0Tl1=0T1|1=0:L2=0:N2=0:L3=0: 

N3=0:P0=0:Pl=0:P2=0:F3=0 

45 TM=0: T0=0: Ti=0i T2=0: T3=0: POKE 19,0: 

POKE 20,0 

50 SOUND 0,N0,10,L0:S0UND 1,N1,10,L1:S 

0UND 2,N2,10,L2:S0UND 3,N3,10,L3 

55 TH=PEEK(191*256+PEEK(20):IF TM>=T0 

THEN TM=T0;P0=1:READ NO,L0,DO:TO=TO+D0 

:IF N0=256 THEN 90 

60 IF TH>=T1 THEN TM=T1:P1=1:READ N1,L 

1,D1;T1=T1+D1 

70 IF TH>=T2 THEN TH=T2:P2=1: READ N2,L 

2,D2:T2=T2+D2 

80 IF TH>=T3 THEN TM=T3:P3=1:READ N3,L 
3,D3:T3=T3+D3 

81 IF P0=1 THEN SOUND 0,0,0,0:P0=0 

82 IF Pl=l THEN SOUND 1,0,0,0:P1=0 

83 IF P2=l THEN SOUND 2,0,0,0:P2=0 

84 IF P3=l THEN SOUND 3,0,0,0:P3=0 

85 GOTO 50 

90 TRAP 91: FOR V=0 TO 3: SOUND V, 0,0,0: 
NEXT V:S0T0 30 

91 END 

700 ? CHR$!253):7 " UMEASURE 
FULL*!";? :? "PLAY MEASURE OR":? :? "E 
DIT MEASURE OR":? :? "SAVE MEASURE" 

701 TRAP 700:? :? "HHICH?":? :? "ENTER 
I TO PLAY":? " 2 TO EDIT":? " 

" 3 T*0 |AVE": INPUT PES 

702 "if PES=1 THEN 708 

703 IF PES=2 THEN 5000 

704 IF PES=3 THEN SV=1:G0T0 708 

705 ? CHR$( 253): GOTO 700 

708 GRAPHICS 2+16:? I6:PRINT #6;" 
PLay muSIc" 
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709 ? 86:? I6;TITLE1$:? 16s? #6;TITLE2 

$ 

710 LO=0:NO=0:L1=0:N1=0:L2=0:N2=0:L3=0 

: N3=0 : P0=0 : P 1 =0 : P2=0 : P3=0 : 0RD=0 
712 V0=-1:V1=-1:V2=-1:V3=-1:T0=0:T1=0: 
T2=0:T3=0:P0KE 19,0sP0KE 20,0 
720 SOUND 0, NO, 10, LO: SOUND 1,111,10, LI: 
SOUND 2,N2,10,L2:S0UND 3,N3,10,L3 
722 TH=PEEK < 19) 1256+PEEK (20) : IF TH>=TO 
THEN TM=TO: PO=i : V0=V0+1 : BDSUB 12 
725 IF H1=0 THEN 751 
730 IF TH>=T1 THEN TH=T1:P1=1:V1=V1+1: 
GOSUB 16 

735 IF H2=0 THEN 751 
740 IF TH>=T2 THEN TM=T2:P2=1:V2=V2+1: 
GOSUB 18 
745 IF H3=Q THEN 751 

750 IF TM>=T3 THEN TM=T3:P3=1:V3=V3+1: 
GOSUB 20 

751 IF P0=1 THEN SOUND 0,0,0,0:P0=0 

752 IF Pl=l THEN SOUND 1,0,0,0:P1=0 

753 IF P2=l THEN SOUND 2,0,0,0:P2=0 

754 IF P3=l THEN SOUND 3,0,0,0:P3=0 

755 GOTO 720 

760 FOR V=0 TO 3: SOUND V,0,0,0:NEXT V: 
IF SV=i THEN SV=0:GOTO 6500 
765 GOTO 700 

800 H1=0:H2=0:H3=0:V1=0:V2=0:V3=0:RO=3 
:R1=0:R2=0:R3=0:DIN A$!3):WT=400 
802 ? ">":? " HMUSIC PROGRAMS 
:? :? " NOTES AND RESTS ARE ENTERE 

EDITED"; 

"MEASURE BY MEASURE IN I TO 4 VJ 
USING A ROUTINE CALLING FOR NOT 

DURATION , OCTAVE ,'; *""" 

' AND LOUDNESS. MEASURELEN6TH IS 
DETERMINED FROM THE TIME SIGNATURE 
. TIED NOTES, DOTTED NOTES," 
807 ? "AND TRIPLETS ARE ENTERED WITH": 
? "SUBSCRIPTS. TIED MEASURES ARE COMBI 
NEDINTO ONE LARGE MEASURE."; 

809 ? " SHARPS AND FLATS ARE ENTERE 
D WITH THEIR NOTES SINCE THERE ARE 
NO KEY SIGNATURES." 

810 ? "EACH MEASURE MAY BE PLAYED FOR 



ERtJ" 
D ANE 
804 ? 
ICES 

h 

806 ? 



EDITIN6BEF0RE SAVING." 

812 ? :? "EACH MEASURE IS THEN SAVED B 
Y':? "TRANSFERRING TO DATA STATEMENTS 
WHICH MUST BE ENTERED "; 

813 ? "INTO THE PROGRAM.":? :? "PRESS 
RETURN TO CONTINUE.": INPUT At 

814 ? "}":? "WHAT IS THE MAXIMUM NUMBE 
R OF NOTES-UPTO 16- YOU WILL NEED TO EN 
TER INTO ANY" ~ 

816 ? " SINGLE VOICE IN ANY MEASURE? HE 
ASURES TIED TOGETHER~ITH CONTINUING N 
OTES ARE TREATED AS ONE "; 

818 TRAP 814:? "LARGE MEASURE.": INPUT 
VO:NLV=VO 

819 IF V0<1 OR V0>16 THEN ? CHRK253): 
? " 1 TO 16 NOTES PER MEASURE! ":FOR K= 
1 TO WTsNEXT W:GQTO 814 

820 TRAP 820:? "}":? "HOW MANY VOICES 
U TO 4)WILL YOU NEED":INPUT NV 

821 ON"NV GOTO 826,825,824,823 

822 ? CHR$ (253): GOTO 820 

823 H3=1:V3=V0:R3=R0 

824 H2=1:V2=V0:R2=R0 

825 H1=1:V1=V0:R1=R0 



:? "WH 

? " 2 FOR 3/4 OR 
3 FOR 2/4_"~ 
4 FOR 2/2": TRAP 826:INPU 



826 ? "}":? :? " TIME SIGNATURE? 
ICH? j. FOR 4/4 

6/8" T? " 

827 ? " 
T TS ~ 

828 IF TS<1 OR TS>4 THEN ? CHR$(253):G 
OTO 826 

829 IF TS=2 THEN TS=0.75 

830 IF TS=3 THEN TS=0.5 

833 ? "}":? " TEMPO? FAST TO SLOW";? "H 
HICH? 8 9 10 U 12":? :? "WITH 9 OR 11 
: NO DQTTED*1 6th "NOTES ANDNO 16th"; 

834 ? " OR DOTTED 8th NOTES WITH 2/2 
TIME.":? :? "WITH 10 OR 12: NO 16thlo 
TES WITH 2/2 TIME. 7 :? "" 

835 ? "WITH 9 OR 12: TRIPLETS ARE ENTE 
RED NORMALLY WITH TEMPOS 9 AND 12 A 
ND AS TWO DOTTED AND ONE NORlAL"; "" 

836 TRAP 833:? " NOTE OF THE NEXT FAST 
ER SPEED WITH OTHER TEMPOS. NO TRIPLE 
T 16th NOTES WITH 9.":? : INPUT DL 
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837 IF DL<8 OR DLM2 THEN ? CHR*(253): 
GOTO 833 

838 DL=DLI16 

839 IF TS=4 THEN TS=l:DL=DLt0.5 

840 DIN N0(V0,R0),N1(V1,R1),N2(V2,R2), 
N3(V3,R3),N!11,3),D(3,1) 

842 DIN TITLEl$t20),TITLE2$!20),V$(l), 
0$(2),N$t2),D$(3),L$(3J 

849 ? "}":? :? :? "WHAT IS THE TITLE 
F YOUR SONS?":? :? "CENTER IN llth SPA 
CE":? "WITH FIRST LINE HERE" 

850 ? "AND SECONDJ.INE NEXT.":? "USE U 
PPER AND lDHBr":?** a CASE It INVERSE vide 
o.": INPUT TITLEi$ 

855 ? :? "CONTINUE HTLE HERE,": INPUT 

TITLE2* 

910 RESTORE 920: FOR 0=0 TO 3: FOR N=0 T 

lhREAD VN:N(N,Q)=VN:IF VN=256 THEN 

980 

920 DATA 243,230,217,204, 193, 182, 173,1 

62, 153, 144, 136, 128, 121,114, 108, 102,96, 

91,85,81,76,72,68,64,60,57,53 

930 DATA 50,47,45,42,40,37,35,33,31,29 

,0,256 

940 NEXT N;NEXT 

980 MVT=44tHV:fiN=0:flNT=0;DT=0;Sy=0:BT= 

0:LN1=101:LNS=39:SN=1 

984 FOR R=0 TO 1 s FOR C=0 TO 3:DIC,R)=0 
:NEXT C:NEXT R 

985 HL=FRE(0) 

990 FOR V=0 TO VOsFOR R=0 TO R0:N0(V,R 
)=0:NEXT R:NEXT V 

991 FOR V=0 TO ViiFOR R=0 TO R1:N1(V,R 
)=0:NEXT R:NEXT V 

992 FOR V=0 TO V2:FQR R=0 TO R2;N2(V,R 
!=0:NEXT RiNEXT V 

993 FOR V=0 TO V3:F0R R=0 TO R3:N3(V,R 
)=0:NEXT R:NEXT V 

994 VO=0:V1=0:V2=0:V3=0:VOE=0:CKO=0:CK 
1=Q:CK2=0:CK3=0:DN=DL*TS:RELN=LN1 

995 FOR C=0 TO 3:D(C,0!=0:NEXT C 

996 ? "}":? "ENTER TOTAL NUMBER OF CON 
BINED MEASURES, ":? :? "HOW MANY 
? 1 FOR NO COMBINED MEASURES." 

997 ? " "* 2,3,4 COMBINED MEASUR 



ES. a :? :? "LIMIT "jNLV;" NOTES PER VOI 
CE. ":TRAP 996: INPUT CM 
998 IF CM<1 OR CM>4 THEN ? CHR$!253):G 
OTO 996 

1 000 DM=DM* CM : MN=MN+CH : MNT=MNT+CH : MV=H 
L-FRE!OI:HL=FRE!0):MVT=MVT+MV:HVA=MVT/ 
HN:NM=INT(ML/MVA+0.5)-l 

1001 IF H1=0 THEN CK1=1 

1002 IF H2=0 THEN CK2=1 

1003 IF H3=0 THEN CK3=1 

1004 Q$="4°:0=1;N$="C B :N=0:D$="Q":D=DL 
/4:L$="MF":L=8 

1005 IF CK0=1 AND CK1=1 AND CK2=i AND 
CK3=1 THEN V=0:Q=3:N=2:D=0:L=0:6QTQ 15 
00 

1010 ? "}":? :? " CENTER HUS 
ICt*":? :? "THIS IS MEASURE ";HNT:? "N 
UMBER OF AVERAGE MEASURES LEFT = ";NM 
1015 IF CK0=0 THEN V=0:V$="0":ENT=V0+1 
:G0T0 1022 

1017 IF CK1=0 THEN V=1:V$="1":ENT=V1+1 
:GOTO 1022 

1019 IF CK2=0 THEN V=2:V$="2":ENT=V2+1 
:GOTO 1022 

1021 IF CK3=0 THEN V=3:Vt="3":ENT=V3+l 

1022 IF ENT=NLV THEN ? CHRt~253):? "J 
HIS IS THE LAST NOTE THE COMPUTER T 
AN ENTER IN THIS VOICE! " "" 

i ■ .i- 

}" 



1023 IF ENT>NLV THEN ? 

Y NOTES ! "; GOTO 5001 

:? " VOICE "iVij 1 
:? " NOTE ?":? :? 



1030 ? 

1031 ? 

" ■ 9 a 



If.* 



TOO MAN 



: ENTRY ";ENT 
"DHICH? AF,A,AS 
^CS"T? 



DF,D,DS" 

*"""7f,E,ES.":? " F 
?F,G,GS":? " R FO 

mm * m' mm mm 



,FS":? " 
R*REST" 

1033 ? :? "ENTER Sf^ FOR SAME NOTE-"jN 
$;"," i D$;",";"2CT";0$j",";L$: INPUT A* 
1035 IF A$="R" THEN N=l:0=3:L=0:Nt="R" 
:L*="0FF":0$="R":? "}":? " VOICE ":Vi;" 
: ENTRY ";ENT; n , REST": GOTO 1121 
1038 IF A$="SM" THEN 1211 
1040 N$=A$:IF N$="C" THEN N=0:GOTO 112 
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1045 IF Nt="B" THEN N=li:G0TD 1120 

1050 IF N$="8F" DR N$="AS" THEN N=10:G 

0T0 1120 

1055 IF N$="A" THEN N=9:GQT0 1120 

1060 IF N$=°AF" OR N$="GS" THEN N=8:G0 

TO 1120 

1065 IF N$="G" THEN N=7sB0T0 1120 

1070 IF Nt="6F" OR N$="FS" THEN N=6:GQ 

TO 1120 

1075 IF N*="F" THEN N=5:6QT0 1120 

1080 IF N$="E" THEN N=4:G0TQ 1120 

1085 IF N$="EF" OR N$="DS" THEN N=3:G0 

TO 1120 

1090 IF N*="D" THEN N=2:B0T0 1120 

1095 IF N$="DF" OR N$="CS" THEN N=1:GQ 

TO 1120 

1105 \ "}":? CHR$ (253) :N$="SH": GOTO 10 

30 

1120 TRAP 1120:? *}";? " VOICE ";V$; R : 
ENTRY "|ENT; a , NOTE ";N$ 

1121 ? :? "TOTAL DURATION IN MEASURE A 
ND PROGRAM ' : 

1122 ? " VOICE = ",DI0,0),D(0,1);? 
" VOICE 1= ",DU,0),D(1,1!:? " V 

DICE 2 = ",D(2,0!,D(2,1) 

1123 ? " VOICE 3 = ",D(3,0),D(3,1) 

1124 ? :? " DURATION OF NOTE OR REST?": 
? "WHICH? SIXTEENTH":? " EIGHTH" 

1125 ? " * QUARTER":? " " HALF 
":? " WHOLE":? "ADD A FOR DOTTED 

NOTES" 

1126 ? "ADD 3 FOR TRIPLET NOTES":? "AD 
D T FOR TIEjf NOTES" 

1127 ? :? "ENTER EJ TO EDIT NOJE ";N$: 
? "ENTER 311 FOR SAME NQTE-";N$; »,";D$; 
","; H OCT a Jo$;",";Lf:INPUT A* 

1129 IF A$="ED" THEN ? "}":GOTO 1030 

1131 IF A$="SH" THEN 1211 

1137 D$=A*:IF D$!1,11="S" THEN D=DL/16 

:GOTO 1152 

1142 IF D*!1,1!="E" THEN D=DL/8:G0TQ 1 

152 

1145 IF DJ(1,1)="G" THEN D=DL/4:G0TQ 1 

152 



1147 IF D$(1,1)="H" THEN D=DL/2:GOT0 1 
152 

1150 IF D$(l,l)="r THEN D=DL:G0T0 115 
2 

1151 ? CHR$ (253) :D$="Sfl": GOTO 1120 

1152 IF D$!1,1)=D* THEN 1158 

1154 IF D$(2,2)="T" THEN 1200 

1155 TRAP 1156: IF D$(3,3)="T" THEN 120 


1156 IF M(2,2)=V OR D*(2,2)="3" THE 
N 1158 

1157 ? CHR* (253! :D*="SN": GOTO 1120 

1158 IF N$="R" THEN 1200 

1160 ? "}":? :? " VOICE ";V$; n : ENTRY " 
;ENT;", NOTE ";N$i","i" DURATION ";D* 

1161 ? :? " OCTAVE? 4 GOES UP FROM MIDD 
LE£":? :? "WHICH? 3,4,5,6" 

U62 ? :? "ENTER ED*TO EDI*T DURATION " 
;D$:7 "ENTER SM FOR SAME NOTE-"jN$;"," 
;D$;","i"OCT"" , 0$;","jL$: INPUT A$ 

1163 IF A$="ED" THEN 1120 

1164 IF A*="SH" THEN 1200 

1166 TRAP 1160:0$=A$:Q=VAL!0$i:0=0-3:I 
F 0<0 OR 0)3 THEN ? CHRt(253):? "}":6Q 
TO 1160 

1177 ? "}":? :? :? " VOICE ";V$;": ENTR 
Y ";ENT;" ( NOTE "jN*;", DURATION "jDt: 
? "OCTAVE "jO* 

1178 ? :? " LOUDNESS? ":? 
P,MP":? " 



"WHICH? PP, 

lF,f,FF":? " OFF 



1179 ? :? "NORMAL VALUES:":? • MF FOR 
MELODY" 

1180 ? " P FOR ACCOMPANIMENT":? :? " 
ENTER ED TD"*EDIT OCTAVE ";0$: INPUT A$ 

1182 IF*A*="ED" THEN 1160 

1183 L$=A$:IF L$="PP" THEN L=2:GQT0 12 
00 

1184 IF L$="P" THEN L=4:GQT0 1200 

1185 IF L$="MP" THEN L=6:G0T0 1200 

1186 IF L$="MF" THEN L=8:G0T0 1200 

1187 IF L$="F" THEN L=10:G0T0 1200 

1188 IF L*="FF" THEN L=12:GQT0 1200 

1189 IF L*="QFF" THEN L=0:G0T0 1200 
1192 ? CHR$ (253): GOTO 1177 
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1200 IF D$(1,1)=D$ THEN 1210 
1202 IF D$(2,2)=V THEN D=D*3/2 
1204 IF D$(2,2!= 8 T" THEN DT=DT+D:? CHR 
4(253):? ■ ENTER DURATION OF TIED NOTE 
^":FOR N=l TO HTsNEXT W:60T0 1120 
U06 TRAP 1208: IF D$(3,3)="T" THEN DT= 
DT+D:? CHR$(253):? " ENTER DURATION OF 

TIED NOTE! ": FOR H=l TO «T:NEXT W:GQTO 

1120 
1208 IF D$(2,2)="3" THEN D=D*2/3 

1210 D=D+DT:DT=0:IF DOINT(D) OR D<8 T 
HEN 1940 

1211 IF 0=3 AND HOI AND MOO THEN ? C 
HR$(253):? ' NOTE TOO HIGH! ": FOR M T 
WTjNEXT W:GOTO 1160 

1212 D!V,0)=D(V,0)+D:D!V,1)=D(V,1)+D 
1214 IF D(V,0)>DH THEN D(V,0)=D(V,0)-D 
:D(V,1)=D(V,1)-D:6QSUB 1940 

1216 TRAP 5001: IF V=0 AND D!0,0!=DH TH 

EN CK0=1:? CHR* (253) 

1218 IF V=l AND D(1,0)=DH THEN CK1=1:? 

CHR$(253) 
1220 IF V=2 AND DI2,0)=DM THEN CK2=1:? 

CHR$(253) 

1222 IF V=3 AND D(3,0)=DH THEN CK3=i:? 

CHR$(253) 
1224 IF V=0 THEN 1500 
1226 IF V=l THEN 1600 
1228 IF V=2 THEN 1700 
1230 IF V=3 THEN 1800 
1500 N0(y0,l)=N(N,0!:N0(V0,2!=L:N0(V0, 
3)=D;IF N(N,0)=256 THEN GOTO 700 
1510 VO=VO+1:VOE=VO:GQTQ 1005 
1600 N1(V1,1)=N(N,Q):N1(V1,2)=L:N1(V1, 
3)=D:Vl=Vi+l:ViE=Vl:G0TQ 1005 
1700 N2!V2,1)=N!N ! 0):N2(V2,2)=L:N2!V2, 
3) =D: V2=V2+i : V2E=V2: GOTO 1005 
1800 N3!V3,1)=N(N,0):N3(V3,2)=L:N3(V3, 
3) =D: V3=V3+i : V3E=V3: BOTQ 1005 
1901 ? :? CHR$(253);" VOICE UNAVAILABL 
EJ_ a :FOR H=l TO WT:NEXT H:GOTO 5000 
WO ? :? CHR$ (253); " .DURATION UNAVAIL- 
ABLE! ": FOR W=l TO WT:NEXT H:D$="Q":D=D 
L/TTgDTO 1120 
5000 TRAP 5000:? "}":? ■ HEDIT HEft 



SURE OF MUSIC**":? :? " VOICE? ":? :? "W 
HIGH? O f j.,2,3 8 :INPUT V 

5001 V0=1):V1=0:V2=0;V3=0 

5002 IF VOO THEN VO=VOE 

5004 IF V=l AND H1=0 THEN 1901 

5005 IF VOl AND Hi=l THEN V1=V1E 

5006 IF V=2 AND H2=0 THEN 1901 

5007 IF V<>2 AND H2=l THEN V2=V2E 

5008 IF V=3 AND H3=0 THEN 1901 

5009 IF V<>3 AND H3=l THEN V3=V3E 

5010 IF V<0 OR V>3 THEN ? CHRt(253):G0 
TO 5000 

5016 IF V=0 THEN D(0,1)=D(0,1)-D(0,0! 
D(0,0)=0:CKO=0 

5017 IF V=l THEN D(1,1)=D(1,1)-D(1,0) 
D(1,0)=0:CK1=0 

5018 IF V=2 THEN D(2,1)=D(2,1!-D(2,0) 
D(2,0)=0:CK2=0 

5019 IF V=3 THEN D!3,l!=D(3,i!-D(3,0) 
D(3,0)=0:CK3=0 

5020 ? :? CHR$ (253); "EDIT VOICE ";V:FO 
R W=l TO WTjNEXT HjGOTO 1004 

6500 IF ST=1 THEN 7510 

6502 ? "}":? " USAVE MUSICt* 

":? :? "HOVE CURSOR TO LINE NUMBER (LN 

! AND" "" 

6505 ? 

GRAM. 

N TO 

6508 ? 

6510 ? 
;CHR$(34); 
2$jCHRt!34) 

6511 IF H1=0 THEN ? "60" 

6512 IF H2=0 THEN ? "70" 

6513 IF H3=0 THEN ? "80" 

6514 STOP 

7510 ST=1:0RD=0:V0=0:V1=0:V2=0:V3=0:LN 
1=LN1-1 

7520 ? :? "}":? "LN " 
7522 FOR LN=1 TO 6:LN1=LN1+1 
7525 ? LN1;" DATA "; 
7530 FOR NS=1 TO 9 

7532 IF NS=9 AND N0(V0,0)=0RD AND NO(V 
0,1) 



"PRESS RETURN TO ENTER INTO PRO 
THEN TYPE CONT AND PRESS RETUR 
CONTINUE. " 

:? "LN" 

"40 ??6:?#6: ";CHR$(34);TITLE1$ 
?I6:?#6; ";CHR$ (34!;TITLE 



56 THEN 7540 
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(V0,1);" 
V0=V0+1: 



7535 IF NS=9 THEN ? CHR*( 126): GOTO 757 

5 

7540 IF NO(VO,0!=0RD ftND N0(V0,i)=256 

THEN ? CHRt(126)s? LN1+1;" DATA H ;NO(V 

0,lli",";N0(V0,2)i","iN0(V0,3!:S0TD 75 

80 

7545 IF N0(VO,O)=ORD THEN 

,"jN0(V0,2)j","jN0(V0,3); 

0RD=0RD+1:NEXT NS 

7550 IF N1(V1,0)=0RD THEN ? NKVl.i);" 

,"jNl(Vl,2);%°iNl(Vl,3)j u ,";:Vi=Vi+Ii 

0RD=QRD+1:NEXT NS 

7560 IF N2(V2,0!=0RD THEN ? N2(V2,1);" 

,";N2!V2,2);",";N2(V2,3!;",";:V2=V2+1: 

0RD=0RD+1:NEXT NS 

7570 IF N3(V3,0)=0RD THEN ? N3(V3,1!;" 

,";N3(V3,2);","iN3(V3,3!j",";:V3=V3+l: 

0RD=0RD+1:NEXT NS 

7575 NEXT LN 

7580 ? :? "ENTER LINE NUMBERS AND CONT 

INUE.":STOP 

7590 IF N0(V0,1K>256 THEN GOTO 7520 

7600 LN1=LN1+1:GQT0 30 

8450 ?"}":?" MSAVE ON DISKETT 
E*J":? :? "SAVE PLAY PROGRAM AND DATA 
WITH THE" 

8451 ? "INITIAL GROUP OF MEASURES BUT 
QNLY DATA IN SUBSEQUENT SAVES." 

8452 ? :? " INSERT BLANK DISKETTE! ":? : 
? "ENTER LINE NUMBER AND CONTINUE." 

8453 ? " LN ":? "8460 LIST ";CHRt(34); 
"D:S0NG";SN;".ENT"jCHRt!34);" ! ";LNS; > , 

:LN1:ST0P 



8454 ? "}":? :? "PRQGRAH BEING SAVED." 

8461 IF LNS=39 THEN LNS=101:? "}":? :? 
"ENTER LINE NUMBERS TO CLEAR MEMORY F 

ORNEXT 6R0UP OF MEASURES. " 

8462 FOR W=l TO HT-.NEXT W;LN=LNS-1 

8463 ? "}":? "LNJ:LNF=LNS+15:IF LNF>= 
LN1 THEN LNF=LN1 

8464 FOR H=LNS TO LNF:LN=LN+1:? LN:NEX 
T W 

8465 SN=SN+h? :? "ENTER LINE NUMBERS 
AND CONTINUE.": STOP 

8466 LNS=LNF+1:IF LNS<=LN1 THEN 8463 

8468 ? "}":? :? "LOAD OR ADD THIS MUSI 
C PROGRAM AND" 

8469 ? "ADDITIONAL DATA TO ANOTHER PRO 
6RAM WITH ENTER "D: SONGS. ENT" " 

8470 LNS=LN1;F0R «=1 TO WT:NEXT W:GQTQ 
985 

9031 TRAP 30:? :? "SAVE ON CASSETTE OR 
":? :? "RE-ENTER LINE NUMBERS":? :? "N 
HIGH?":? :? "ENTER j TO PLAY" 
9450 ?*}■:?■ * MSAVE ON CASSETT 
El*":? :? "SAVE PLAY PROGRAM AND DATA 
KITH THE" 

9452 ? ;? "ENTER LINE NUMBER AND CONT 
INUE.":? 

9453 ? "JLNJ:? "8460 LIST "iCHR$(34)| 
"C";CHR$(34!;",";LNSi",";LNl:ST0P 

9454 ? "}":? :? "ON BELL, SET RECORDER 
TO RECORD AND PRESS RETURN . " 

9469 ? "ADDITIONAL DATA TO ANOTHER PRO 
GRAM WITH ENTER "C" 
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w Character 
^ Generator 



Atari Character Generator is an 
Atari utility program requiring 16K 
RAM. 

The first thing to do before running 
the Character Generator is to press 
SYSTEM RESET. Then load the pro- 
gram, and type RUN. It is absolutely 
necessary to press SYSTEM RESET 
prior to running any program using a 
modified character set. Forgetting to 
do so can cause the computer to lock 
up and lose the program currently in 
memory. 

After about twenty seconds you 
should see all the characters (except in- 
verse) displayed on the left side of the 
screen; a large box displayed on the 
right side; and at the bottom the 
message "Edit character or Save 
file?." Let's assume for now that you 
type "E." 

The message "X,Y coordinate of the 
character?" will now be displayed. 
This is prompting you for the horizon- 
tal (X) position of the character, which 
is between and F, and the vertical (Y) 
position, which is between and 7. 
Type them in together. For this 
example we'll type 0,2 (the comma is 
optional) which corresponds to the 
blank space character. 

The computer will now put that 
character into a small box, and an ex- 
panded version in the large box next to 
It. In this case the character is blank, so 
nothing is put in either box. 

The message at the bottom shows 
you the nine different commands 
available to you in the modify mode. 
You should also see a blinking " + " in 



by Alan J. Zett 

the large box on the right. This is your 
cursor. It shows you where the next 
modification will take place. Note: 
Only DELETE and RETURN make 
actual changes to the character set as 
stored in memory; the other commands 
affect only the display. 

To plot a block in the character, use 
the SET command. Use the arrow keys 
to position the cursor where you want 
to make a change, and press "S" to 
turn the block on. To do the opposite, 
type "R" to RESET the block (make it 
blank again), positioning the cursor in 
the same way as for the SET com- 
mand. If you want to erase the entire 
drawing pad, type "E" for ERASE. 
Or, to start with all blocks on, type 
"W" to WHITE out all blocks. 
Reversing the drawing is done by typ- 
ing "I" for INVERSE. 

If you want to load in another 
character with which to start your 
design, type "C" for COPY. You will 
be asked to select a character, and its 
pattern will then be copied onto the 
drawing pad. 

If you accidentally choose the wrong 
character to modify, you can cancel the 
MODIFY mode at any tme by hitting 
the ESC key. This allows you to 
ESCAPE to the "X,Y of character" 
mode. The DELETE command lets 
you change your mind about a 
modification by restoring the current 
character to its unmodified form. 

Finally, when everything is correct, 
hit RETURN to make the change both 
in memory and on the screen. 
Remember that this change is not per- 
manent, and can be changed again by 
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using any of the commands. 

For our example, let's draw a series 
of vertical stripes in the large box. 
When everything is just right, press 
RETURN. Right in front of your eyes, 
all blank spaces on the screen should 
turn a different color. 

You can keep on modifying all night 
if you want, but for now, we'll call it a 
day. When you see the message "X,Y 
of ...," press RETURN again. This 
will take you back to the original 
menu. From here, select the "S" op- 
tion to save the file. The computer will 
ask, "Want to SAVE (Y/N) ?." In 
case you hit "S" by accident, type N. 
Otherwise, type Y and hit RETURN. 
The prompt, "To Cassette or Disk?" 
will be displayed; answer with a "C" 
or "D." 

If you said "D," then answer the 
next question with the 8-letter filename 
plus a 3-letter extension, #11 preceded 
by a "D:". Answer the next question 
"Is this right?" with a "Y" or "N", 
and hit RETURN. 

If you said "C", for a cassette save, 
then you'll hear two beeps. Prepare the 
cassette and press RETURN. After the 
save, type "Y" to continue or "N" to 
stop. 

Now that you've saved it, what can 
you do? This is the best part! Write 
your program between lines 2 and 
31999 using the characters that will be 
modified where necessary. When it's 
all done and totally debugged, type 
either ENTER"C:" for cassette or 
ENTER"D:filename.ext" for disk. 
This will merge the custom character 
set into your program, and it should 
run perfectly the first time. 

Two final notes: First, the new pro- 
gram will take an extra 1.25K of 
memory and will take longer to 
initialize. Second, after every 
GRAPHICS command you must insert 
a POKE 756, PEEK (106) + 1. This is 
because the GRAPHICS command 
restores the character set pointer in 
memory. The new set is still there, but 
the pointer must be reset to access it. 



One benefit from this is that you can 
toggle back and forth between the two 
character sets by typing POKE 756, 
224 to get the original set and POKE 
756, PEEK (106) + 1 for the new set. 
Note that PRINT CHR$(125) clears 
the screen as does GRAPHICS 0, but 
does not affect the current character 
set. 
Editor's note: 

XFR$, which you will find printed as 
a series of periods in the program 
listing, actually contains a Machine 
Language routine that quickly sets up a 
redefined character set for the Atari. It 
is very difficult to represent this string 
in the listing of the program, so here 
are explicit instructions on how to type 
it. 

In these instructions, each key is 
represented by something between 
brackets. Thus [h] means to type a 
lower-case "h"; likewise, [Atari] 
means to press the Atari logo key, 
which is found next to the right-hand 
shift key, and [CTRL-N] means to 
press the "N" key while holding down 
the "CTRL" key. Special note: [1] is a 
the numeral one — it is not the lower- 
case version of "L"! 

Type the following sequence exactly 
to produce XFR$: 
[h] [Atari] [)] [Atari] [CTRL-,] 
[Atari] [CTRL-E] [K] [CTRL-E] [M] 
[)] [CTRL-.] [CTRL-E] [N] [%] 
[Atari] [/] [CTRL-X] [i] [CTRL-A] 
[Atari] [CTRL-E] [L] [spacebar] 
[Atari] [CTRL-,] [Atari] [1] [M] 
[CTRL-Q] [K] [H] [P] [y] [f] [L] [f] 
[N] [%] [N] [I] [d] [P] [m] [Atari] 
[CTRL-.] 

Variables 

A$: Misc. string input. 
B: Binary bit value counter. 
B(i): Modified character pointer array 
(-1 = not modified). 
C: Character byte value. 
CC: Current character at cursor posi- 
tion. 

CH: Command character. 
CU: Cursor character. 
CX: Cursor X position. 
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CY: Cursor Y position. 

FL: Modify flag. 

HEX$: Used in converting hex input 

to decimal. 



KP: Key pressed? (No = 255.) 
START: Starting location in memory 
of new character set. 
W, X, Y, Z: Misc. 



SS SS SS SS SS SS SS SS SS SS SS 
SS SS 

SS Atari BASIC SS 

SS 'Character Generator' SS 
SS Author: Alan J. Zett SS 
SS Copyright (c) 1982 SS 
SS SoftSide Publications, Inc SS 
SS SS 

SS SS SS SS SS SS SS SS SS SS SS 

Initialization. 

10 OPEN #1,4,0, "K":0PEN #2, 12,0, "S" 

12 CLR :DIH BU27),HEX*(16) 

14 DIH A*U4):6QSUB 10000 

20 HEXS="0123456789ABCDEF" 

22 SETC0L0R 2,9,2:SETC0L0R 4,4,4 

24 POKE 82,21 

Redraw entire display. 

30 ? CHR*< 125): POKE 752,1 

32 POSITION 19,0 

33 ? ' CHARACTER GENERATOR ' 

34 POSITION 19,1 

35 ? " BY ALAN 2. ZETT ' 

36 FOR X=7 TO 16 STEP 9: POSITION 2,X 
38 ? " 0123456789ABCDEF ";:NEXT X 

40 FOR X=8 TO 15-.P0SITIQN 2,X 

42 ? CHR*<X+16B) ; : POSITION 19, X 

44 ? CHR$(X+168);:NEXT X 

50 POSITION 4,5:? "Character set:"; 

60 POKE 766,1: FOR X=0 TO 7 

62 FOR Y=0 TO 15:P0SITI0N Y+3,X+8 

64 ? CHR$(Xtl6+Y).;:NEXT Y:NEXT X 

66 POKE 766,0: POKE 752,1 

70 POSITION 26,7:? "qrrrrrrrre"; 

71 REM <CTRL> 'QRRRRRRRRE' 

72 POSITION 26,16:? "xrrrrrrrrc"; 

73 REM <CTRL> 'XRRRRRRRRC 



80 FOR X=8 TO 15:P0SITI0N 26, X 

82 ? "= =";:NEXT X 

83 REH <SHIFT> '= 

90 POSITION 24,14:? "qrd"; 

91 REH <CTRL> 'QRD' 

92 POSITION 24,15:? "= ="; 

93 REH <SHIFT> '= =' 

94 POSITION 24,16:? "zrx"; 

95 REH <CTRL> 'ZRX' 

Select main program options. 

100 60SUB 9000:P0SITI0N 2,20 

102 POKE 752,0 

104 ? "Edit character or Save file"; 

106 INPUT A$ 

108 IF Ai(l,l!="S» THEN 570 

110 IF A$(l,DO"E" THEN 100 

Input and adjust value of character. 

120 GDSUB 9000:POSITION 2,20:TRAP 66 

122 ? °X,Y coordinate of the character 

";: INPUT A* 

130 IF A$(LEN(A*)K"0» OR At(LEN(A$)}> 

"7" THEN 120 

140 TRAP 33333:Y=VAL(A$(LEN(A*))):X=1 

150 IF A$(l,l)OrOm,X) THEN X=X+1:I 

F X<17 THEN 150 

160 X=X-1:IF X>15 THEN 120 

170 POKE 752,1:Z=X+Yti6 

172 POSITION 25,15:P0KE 766,1 

174 ? CHRI(Z);:P0KE 766,0 

180 IF Z<32 THEN Z=Z+64:G0T0 200 

190 IF Z<96 THEN Z=Z-32 

Draw character onto pad. 

200 POKE 82,27 

210 FOR Y=0 TO 7: X=0: C=PEEK (START+Y+Z* 
8):B=256 

220 B=B/2:IF B<1 THEN 270 
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230 POSITION X+27,Y+8:X=X+1 

240 IF (C-BXO THEN ? 
250 IF <C-B)>=0 THEN ? "J';: 
260 60T0 220 
270 NEXT Y 



■ ";:60T0 260 



C=C-B 



Get command; branch to appropriate 
routine. 

280 G0SUB 9000:PQBITION 2,20:PQKE 82,2 
290 POKE 752,1:? "Copy, Delete, Erase, 
.Inverse, Reset, 8 :? :? "Set, Knife, ES 
Cape, RETURN to store.";" " ~* 

300 POKE 752,1: POKE 764,255:CX=27:CY=B 
310 POSITION CX,CY:GET I2,CC 
320 POSITION CX,CY:PUT I2,CC:KP=PEEK(7 
64):CU=43:IF CC<>32 THEN CU=171 
330 IF KP=255 THEN POSITION CX,CY:PUT 
#2,CU:60T0 320 

340 SET il,CH:IF CH=155 THEN 470 
350 IF CH=27 THEN 120 
352 IF CH=ASC("E") THEN 790 
354 IF CH=ASCCC") THEN 820 

356 IF CH=ASCPD") THEN 810 

357 IF CH=ASC("W"> THEN 1000 

358 IF CH=ASC("I") THEN 1020 
360 IF CH=ASC<"-") THEN CY=CY-1 
370 IF CH=ASC("=") THEN CY=CY+1 
380 IF CH=ASC ("+»} THEN CX=CX-1 
390 IF CH=ASCl"t"> THEN CX=CX+1 

400 IF CH=ASC!"S") THEN CC=160:B0T0 32 



410 IF CH=ASC("R") THEN CC=32:G0T0 320 

Move cursor on pad. 

420 IF CX<27 THEN CX=34 
430 IF CX>34 THEN CX=27 
440 IF CY<8 THEN CY=15 
450 IF CYM5 THEN CY=8 
460 SOTO 310 
470 POSITION CX,CY:PUT *2,CC 

Modify character. 

480 FOR Y=0 TO 7:X=0:B=256:CC=X:C=X 
490 B=B/2:IF B<1 THEN 540 



500 POSITION X+27,Y+8:X=XH:6ET 12, CC 

510 IF CC=32 THEN 530 

520 IF CC=160 THEN C=C+B 

530 GOTO 490 

540 POKE START+Y+Zt8,C 

550 NEXT Y:P0SITI0N 34,15 

560 PUT I2,CC:B(Z)=Z*8 

562 FL=0:F0R Y=0 TO 7 

564 IF PEEK (BTART+Y+Z*8) OPEEK (57344+Y 

+Z*B1 THEN FL=1 

566 NEXT ViIF FL=0 THEN B(2)=-l 

568 GOTO 120 

Save file. Note: Correct spacing is 
critical in these lines. 

570 PRINT CHR*(125):P0KE 82,2 

580 TRAP 990:P0SITI0N 2,5 

582 ? "You want to SAVE (Y/N)"; 

584 INPUT A*:IF A$(l,lK>"Y a THEN 30 

590 ? "To Cassette or Disk";: INPUT A$ 

600 IF A*<T*D H THEN 620 

610 ? "Enter file 'D:FILENAHE.EXT'° 

612 INPUT A$:? "Is ";M;" correct ?" 

614 GET #1,CH:IF CH=78 THEN 610 

620 OPEN #3, 8,0, At 

630 PRINT «3;"1 SOSUB 32000:CLR" 

640 PRINT #3; "32000 POKE 106,PEEK(106) 

-5:GRAPHICS 0:START=(PEEK(106)+l)t256: 

POKE 756, START/256: POKE 752,1" 

650 PRINT #3; "32010 DIH XFR*(38):XFR$= 

";CHR$(34);" 

";CHR$<34> 

651 REM Line 650: Replace string of 
.'s with the string in the docuaen- 
tation. 

660 PRINT #3; "32020 Z=USR!ADR(XFR$)):R 
ESTORE 32100" 

670 PRINT #3; "32030 READ X:IF X=-l THE 
N RESTORE : RETURN" 

6B0 PRINT #3; "32040 FOR Y=0 TO 7:READ 
Z:P0KE X+Y+START,Z:NEXT Y:G0T0 32030" 
690 LN=321OO:LI=l:F0R Z=0 TO 127 
700 IF B!Z!=-1 THEN 750 
710 PRINT #3jSTR$!LN)j" DATA "j 
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720 PRINT #3;STR$(BIZ>); 

730 FOR Y=0 TO 7:PRINT #3;",";STR$(PEE 

KtSTART+Y+Z *S) 1 ; : KEXT Y 

740 PRINT #3i"":LN=LN+LI 

750 NEXT ZsPRINT #3;STR*!LN); n DATA "; 

STR$(-1): CLOSE #3: TRAP 33333 

760 POKE 764,255s? :? "WANT TO CONTINU 

E ;: INPUT A* 

770 IF A*U,1)="Y" THEN 30 

780 ? CHRtU25):END 

Erase command. 

790 FOR Y=8 TO 15:P0SITI0N 27,Y 
800 ? n H j;NEXT Y:GOTO 300 

Delete command. 

810 B(Z)=-1:F0R Y=0 TO 7: POKE START+Y+ 
Z*8,PEEK(57344+Y+Zt8):NEXT Y:G0T0 120 

Copy command. 



820 BOSUB 9O00:POSITI0N 2,20 

822 ? "X,Y of character to copy"; 

824 INPUT A$ 

830 IF A*(LEN<A*))<"0" OR A$(LEN(A$)!> 

"7" THEN 820 

840 POKE 752,l:Y=vAL(A*(LEN(A*))):X=l 

850 IF A*<1,1)<>HEX$<X,X) THEN X=X+1:I 

F X<17 THEN 850 

860 X=X-isIF X>15 THEN 820 

870 W=X+Ytl6 

880 IF W<32 THEN «=W+64:G0T0 900 

890 IF W<96 THEN «=ll-32 

900 FOR Y=0 TO 7 

910 X=0:C=PEEK!START+Y+H*8) :B=256 

920 B=B/2sIF B<1 THEN 970 

930 POSITION X+27,Y+8:X=X+1 

940 IF (C-BXO THEN ? " 'jsBOTO 960 

950 IF <C-B)>=0 THEN ? "J-jsOC-B 

960 60T0 920 

970 NEXT Y 

980 SOTO 280 



Error trap. 

990 ? :? :? ' INPUT ERROR, RE-ENTER. ' 
:G0T0 582 

White command. 

1000 FOR Y=8 TO 15:P0SITI0N 27,Y 
1010 ? " ";:NEXT Y:6OT0 300 

Inverse command. 

1020 FOR Y=8 TO 15;F0R X=27 TO 34 

1030 POSITION X,Y:6ET #2,CH:P0SITI0N X 

,Y 

1040 IF CH=32 THEN PUT #2,160 

1050 IF CH=160 THEN PUT #2,32 

1060 NEXT X:NEXT Y:80T0 300 

Erase old messages. 

9000 POKE 752,1: POSITION 0,20 
9010 ? "!!!!!"::P0KE 752,0:RETURN :REH 
Replace ! with CESC3CSHIFT3IDELETE] 
9020 REH 5 <ESCXSHIFTXDELETE>'S 

Download new character set, and reset 
modification pointers to -1. 

10000 POKE 106,PEEK(106)-5:6RAPHICS 

10010 START= (PEEK (106) +1)1256 

10020 POKE 756,START/256:P0KE 752,1 

10030 ? "INITIALIZING 

10040 DIH XFRJI38) 

10050 XFR*=" 



10051 REM Line 10050: Replace .'5 with 
the string listed in the docuaenta- 
tion, 

10060 Z=UBR(ADR!XFR$)):F0R Z=0 TO 127 
10070 B(Z)=-1:NEXT Z:RETURN 
32767 SAVE "D:CHARGEN.AJZ":STOP 
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ACCESS 
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by Mark Pelczarski 

Atari version by Paul Marentette 



Random Access Database is an in- 
formation management program for 
an Atari 400/800, requiring 32K RAM 
and a disk drive running under DOS 2. 

In-memory databases are limited in 
size because data must fit into available 
RAM. For example, if you had a 40K 
machine, you could have a database of 
approximately 170 90-byte records. 
With the random access database (and 
480 free sectors on a disk) more than 
770 of these records could fit in the 
database. Moreover, in-memory data- 
base managers must save all data to 
disk whenever the data changes. With a 
large quantity of data, this is both 
time-consuming and inefficient. 

Before examining the Random Ac- 
cess Database,let's consider how Atari 
handles random disk access. The 
NOTE and POINT instructions are 
used to keep track of where each 
record resides on the disk. When a file 
is opened in mode 12 (OPEN #IOCB, 
12,0,"D:FILENAME") an internal 
pointer positions the disk's read/write 
head at the beginning of the file. Under 
program control, the POINT #IOCB, 
Sector.Byte instruction is then used to 
reposition the disk head at any sector 
and byte in the file. 



In this manner the computer can 
automatically calculate where a record 
resides on the disk, and bring only that 
record into memory. Only one com- 
plete record ever resides in RAM; this 
frees up the bulk of memory for stor- 
ing the pointers (disk addresses) for 
each record in the database. Since each 
pointer uses only 3 bytes, a much larger 
database can be created. 

The pointers, consisting of the sector 
(1-720) and byte (1-125) address of 
each record, are stored in P$. They 
could be stored in a numeric array, but 
that would require 12 bytes of memory 
for each sector-byte pair. Instead, by 
using the CHR$ and ASC functions, 
the two numbers can be stored in 3 
bytes. The first two bytes store a sector 
number. Byte #1 contains the number 
of 256' s in the sector number; byte #2 
contains the remainder; and byte #3 
contains the byte portion of the disk 
address. Thus an address of sector 550, 
byte 63 would have a pointer in the P$ 
string consisting of CHR$(2), CHR$ 
(38), and CHR$(63). 

The routine from line 1070 to 1110 
writes blank records into the disk file 
and stores their NOTEd addresses in 
the P$ string using the CHR$ function. 
Lines 170 to 180 contain a reverse pro- 
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cess which uses the ASC function to 
decode the P$ characters into byte and 
sector numbers and then point the disk 
head to the calculated address. The 
program then reads (line 1160) or 
writes (line 1140) a record at that 
address. 

Stepping Through the Program 

Lines 110 to 700 contain variable 
initialization, frequently used 
subroutines, and the main menu and 
disk directory read routines. 

Now let's examine the file initializing 
routine. Starting at line 850 the number 
and names of headings are established. 
The numeric array B(NH + 1) is used to 
store the starting bytes of each field 
since we are allowing fields to have dif- 
ferent lengths. 

Throughout the program the, S, E 
and L variables specify the start, end, 
and length of a field within the total 
record. These values are recalculated 
any time the field in question changes. 

Once the headings are known, the 
program calculates the maximum 
number of records that can be accom- 
modated, given the two limiting factors 
of available RAM and disk space. 
Then the tricky business starts. We 
could set aside enough disk space for 
MX records; but, if the database is a 
small one, disk space will be 
unnecessarily dedicated to the database 
file. We could add a new record to the 
end of the file each time one is needed; 
but that is wasteful too — Atari's File 
Management System grabs a new disk 
sector every time a record is added (us- 
ing IO mode 9) and ignores any vacant 
bytes that might have existed on 
previously used sectors. 

The way I solved this problem was to 
"block" records in groups that come 
as close as possible to filling complete 
sectors. Up to 50 records (an arbitrary 
number) can be in a block. An efficient 
block size between 1 and approximate- 
ly 50 is calculated in lines 1000 to 1040, 
and then the subroutine at line 1070 is 
called to do the actual setting up of file 



space. The variable RA keeps track of 
total file space already set aside. When 
more space is needed, another block is 
added on. 

Every database file you create will 
have two disk files associated with it: 
The one with a ".DAT" extension will 
hold the actual records, and the other 
with a ".HDG" extension will hold the 
heading names, file size information, 
and the P$ string containing the 
pointers to all records in the ".DAT" 
file. The heading file is saved in lines 
1180 to 1260. Variables BLK and RA 
are saved along with the others so that 
the database program always knows 
how a particular file is blocked and 
what space is already set aside. The 
".HDG" file will grow in size as the 
database grows; as more records are 
added, the pointer string gets longer, 
and that string is saved up to its current 
length. 

When an old file is loaded (lines 720 
to 800), the ".HDG" file is read first 
and variables are dimensioned as need- 
ed. Then a routine at line 820 is called 
to read into memory one complete set 
of fields for the first heading. In other 
words, the first heading's contents for 
every record are placed in memory. 
The CH variable keeps track of which 
heading is the current one. If a sort or 
search is done on a different field, that 
field's contents for every record are 
read in using this same routine. 

The add and change records routines 
share a common input data subroutine 
(lines 1710-1730). If, when a record is 
being added (line 1600), available file 
space (RA) has been filled, a new block 
of space is created by calling the 
routine at line 1070. The variable IO is 
set to 9 so that the file is opened in the 
append mode. In the change record 
section the variable CS is checked to 
see if any changes were made to the 
current record. If so (CS = 0), then the 
subroutine at line 1140 is called to 
rewrite the record at the same location 
on the disk from which it was read. 

In the delete and sort records 



TheBestofSoftSide 



122 



) ) > > ) ■.' ):>■;) ) ) 



) ) ) 



) > ) ) 



routines the real beauty of random ac- 
cess is seen in action. When a record is 
deleted from the database it is not 
removed from the disk. Instead, the 
pointer to that record's disk space is 
moved to the end of the P$ pointer 
string (line 1900) so that the deleted 
record's disk space can be made 
available for new records. In the sort 
routine, whenever the sort field is mov- 
ed around, the corresponding pointers 
in the P$ string are moved around too. 
In effect, the records are never moved 
on the disk — only the pointers get 
sorted! 

Data is automatically saved when 
you quit the program. (Don't exit the 
program any other way than the Q 
menu option!) If you want to save a 
copy of your file in the midst of work- 
ing, the save option will save a copy of 
your current heading and pointer file. 
The data itself is always saved 
automatically, immediately after it is 
entered or changed. 

Running The Database 

The first choice you will have is 
whether to initialize a new file or load 
an existing file. The first time you use 
it, you'll have to initialize a file. 
Thereafter, when you want to access 
that data, you will load the file. 
Anytime you want to create a new file 
with a different type of data, you'll use 
the initialize option. Several different 
files will fit on a disk and you can use 
as many different data disks as you 
like. A few examples of files would be 
a mailing list (name, address, city, 
etc.), checkbook list (to whom, 
withdrawals, deposits...), and an in- 
ventory list (stock number, description 
number, in stock, on order, etc.). 
Whatever records you want to keep can 
usually be stored in this type of 
database format. 

To initialize a new file, you must 
give your file a name, then tell the com- 
puter how many headings .you want 
and the names and lengths of the 
headings. An example would be a file 



named "Addresses, "with six headings: 
Name, Street Address, City, State, Zip 
Code, and Phone Number. You might 
want to add an extra heading (or more) 
for some kind of code. I might use 
"Computer" for my seventh heading, 
so I would know what kind of com- 
puter a particular person owns. 

Your data will be organized into 
what you can picture as a table. The 
headings should be your column 
headings, and each row would have 
one set of information across those 
headings. A set of such information is 
called one record. Once a file has been 
created, any future time that you use 
the database you only have to give the 
file name ("Addresses" is our ex- 
ample) and all the information will 
automatically be loaded from disk. 

The Main Options 

After initializing or loading, you are 
given a list of choices for manipulating 
your database. Here are the choices in 
brief form: 

(S) SAVE current data 
(P) PRINT data (to screen or printer) 
(A) ADD new data 

(C) CHANGE some of your data (such 
as an address change) 

(D) DELETE a record 
(T) SORT 

(F) FILE names - catalogs the disk 
(N) NEW data file - equivalent to quit- 
ting and re-running program) 
(Q) QUIT - done (don't use any other 
method to get out or you may lose 
data) 

Adding A Record 

This is your logical first choice since, 
with no data in memory, the other op- 
tions aren't too useful. Choose (A) 
from the options page and you'll be 
asked for information to fill each of 
your headings for one record. After 
you've filled one record, you'll be 
returned to the options page. Because 
of disk limitations, commas, colons, 
and semicolons don't work in the data. 
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Also see the note below about sear- 
ching and sorting numeric fields. 

Printing A Record 

To see if your data is really there, 
type "P" to print your record. The 
program will ask if you want it put in a 
special format (S) or default format 
(D). Choose (D) for the moment. After 
choosing, you'll be asked if you want it 
on the screen (S) or the printer (P). 
Then, after that choice, a list of 
headings will be displayed, followed by 
the choices "Begin" and "Return to 
Menu." Type the number next to the 
word "Begin," and press RETURN. 
Each record you have in memory will 
be displayed in sequence. If you're 
printing them to the screen, pressing 
any key advances to the next record. 
The ESC key returns you to the option 
page. All the other choices mentioned 
above will be explained under 
"searching" and "formatting." 

Searching 

When printing, changing, or deleting 
records, you have the choice of selec- 
ting individual items, subsets of your 
data, or the entire set of data. This is 
done through the search routine. When 
you used the print routine above, you 
chose to print all the data by selecting 
"Begin" before any other choice. Each 
of the headings is also listed at that 
point, along with "Record Number." 
By choosing the number beside any of 
the headings or "record number," you 
elect to do a search under that heading. 
You are then asked if you want to look 
for an item that is less than or equal to, 
equal to, or greater than or equal to a 
value you'll give. After choosing 1, 2, 
or 3, respectively, you'll be asked for a 
value for comparison. Example: If you 
want to search for all records with 
names starting with A through G, you 
would want NAME,choice 1 ,G, where 
"G" is the value used for comparison. 
If you want all records from number 20 
through the end of the file, you would 



choose RECORD NUMBER.choice 
3,20. 

You also have the option of specify- 
ing the beginning of a value for com- 
parison. If you wanted all records from 
people whose ZIP code starts with a 
"60" (as 60185), you can specify ZIP 
CODE.choice 2,60*. The asterisk says 
that anything may follow. This is also 
an easy way to find records without 
knowing exact information. If you 
can't spell Pelczarski, you can try 
"PEL*" and you'll find the record. 

To start the actual search, you must 
choose "Begin." A hidden option here 
is that you may specify several search 
criteria (up to 8). I might, for example, 
want to find everyone in my list whose 
ZIP code begins with "60" and who 
owns an Atari. I would specify ZIP 
CODE.equal to,60*; then I'd specify 
COMPUTER,equal to, ATARI. Then I 
would choose "Begin." Having done 
this, I'd be asked if I want the item to 
meet all of the conditions or any of 
them. If I choose "all," I would find 
only those people who both own an 
Atari and have a ZIP code beginning 
with "60." "Any" would give me all 
Atari owners plus all the people in ZIP 
code "60." 

Changing Records 

To change a record, choose (C) from 
the options menu. After you specify 
the search criteria you want, if any, the 
appropriate records will appear on the 
screen. The items under each heading 
will then be shown in sequence, and the 
program will wait for you to strike 
"K" to keep, "C" to change, or "R" 
to keep the remainder of the record. If 
you strike "C," you'll be asked to pro- 
vide the new information. 

Deleting Records 

After choosing (D) from the options 
menu, and going through the search 
steps, the records in question will be 
displayed, and you'll have to verify 
that you want to delete the particular 
record, because, once deleted, a record 
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is gone forever. Strike the "Y" key to 
delete. 

Saving a File 

When you want to sign off for the 
day, just choose the (Q) option; your 
file is automatically saved, and the pro- 
gram will end. The (S) option will save 
your current file, but will not end the 
program. It is a good idea to save im- 
portant information on two separate 
disks, using one as a backup. 

Sorting 

The (T) option of the menu allows 
your items to be sorted in ascending or 
descending order, under any heading. 
Alphabetic items are sorted 
alphabetically, and numeric items are 
sorted as strings. This means that 
numbers won't always come out the 
way you want. 125, 34, and 7 will come 
out in that order because strings are 
sorted according to their first 
character. To get a correct numeric 
sort, you must add leading zeroes to 
the maximum number of places, so 
that all the numbers in your file are the 
same length. In our example, you 
should use 007, 034, and 125; these 
values will sort properly. 

Disk Directory 

Menu option (F) will show you the 
filenames of the files on your disk. 

Switching Data Files 

You can load or create a new file 
without rerunning the program by 
selecting menu option (N). Be sure to 
verify that your current file has been 
saved. 

Formatting Output 

This program's formatter may well 
be the most versatile around. Although 
it can't do everything, it does much 
that "professional" database 
managers cannot. Basically, you can 
specify the exact form in which you 
want each record printed. Each record 
is printed in sequence, meaning that 



you can't mix records across a page. 
Another limitation is that there is no 
way to print a one-time heading. 

But let's move on to what the for- 
matter can do. You can specify which 
headings shall be printed, and where, 
as well as additional character strings 
that are not stored as part of your 
database file (examples of these might 
be your company name or an expanded 
version of a heading, rather than the 
heading itself). 

To create a format, choose the 
special-format option when printing. 
You'll be asked if you want to load or 
create one. Naturally, the first time, 
you'll have to create it. Draw out ex- 
actly what you want printed for your 
form. You'll be telling the computer, 
line by line, what it looks like. Your 
choices are (1) Heading, (2) Item, (3) 
Tab, (4) Next line, (5) String, and (6) 
End. Here's one example using the 
"ADDRESSES" file I mentioned 
earlier. The format will print mailing 
labels like this: 

Mark Pelczarski 
1206 Kings Circle 
West Chicago IL 
60185 

Here are the format commands 
(numerically, my headings are 1 Name, 
2 Address, 3 City, 4 State, 5 ZIP, 6 
Phone, 7 Computer): 



Commands 


What To Type 


Item, Name 


2, 1 


Next Line, 1 


4, 1 


Item, Address 


2, 2 


Next Line, 1 


4, 1 


Item, City 


2, 3 


Tab, 16 


3, 16 


Item, State 


2, 4 


Next Line, 1 


4, 1 


Tab, 12 


3, 12 


Item, ZIP 


2, 5 


Next Line, 3 


4, 3 


End 


6 



The "1" after the next line means to 

skip down one line. The "3" at the end 
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skips down three lines before printing 
the next label. Note that none of the 
actual headings is used in this format, 
nor is the phone number. 

Another example is a format that 
will print a separate little form for each 
person in the database. This is what I'll 
have printed: 



THIS PERSON HAS AN 



ATARI 



NAME JOE TATE 
PHONE 555-1212 



Here's the format to do it: 

String, 

Next Line 1 

String, THIS PERSON HAS AN 

Next Line, 2 

Tab, 9 



Item, Computer 

Next Line, 2 

Heading, Name (Hdg. #1) 

Tab, 7 

Item, Name (Item #1) 

Next Line, 1 

Heading, Phone (Hdg. }6) 

Tab, 7 

Item, Phone 

End 

I'll let the top line of the next item to be 
printed be the bottom line for the 
previous item, so I can just end the for- 
mat after printing the last item. 

That's all there is to formatting. 
Play around with it a bit to see what it 
does for you. After a format is created, 
you'll be asked to name it; it will 
automatically be saved to disk. Later, 
you'll be able to load it by name when 
you need it. 



SS SS SS SS SS SS SS SS SS SS SS 

SS SS 

SS Atari BASIC SS 

SS 'Database IT SS 

SS Authors: SS 

SS Hark Pekzarski SS 

SS and Paul Harentette SS 

SS Copyright (c! 1982 SS 

SS SoftSide Publications, Inc SS 

SS SS 

SS SS SS SS SS SS SS SS SS SS SS 

110 NO=0:N1=1:N2=N1+N1:N3=N1+N2:N4=N2+ 
N2: N6=N3+N3: N7=N1+N6: N8=N6+N2: N14=N8+N 
6:N17=N14+N3;N125=125:CL=13:RA=N0 
120 DIM A$!260):DIM FItiN14),FN$!NB},F 
H$(N14!,Ft1T$!Hi4):CH=N0;DL=156 

130 DIM C1!N7!,C2(N7),F$(400!,B*(100), 
C$(100!:NI=-N1:FI$="D:':FH$="D: K 

131 DIN SRT$!215!:F0R I=N1 TO 215;READ 
A:SRT$!I)=CHR$!A):NEn I 

132 DATA 104,201,5,240,15,168,240,5,10 
4,104,136,208,251,132,213,169,1,133,21 
2,96,104,133,216,104,133,215,104 

133 DATA 141,251,6,104,141,250,6,104,1 



04,133,218,104,133,213,104,133,212,104 
,104,133,217,169,0,133,209,133,214 

134 DATA 162,1,165,215,133,205,165,216 
,133,206,173,250,6,133,222,173,251,6,1 
33,223,24,165,205,133,203,101,218 

135 DATA 133,205,165,206,133,204,105,0 
,133,206,24,165,222,133,220,105,3,133, 
222,165,223,133,221,105,0,133,223 

136 DATA 164,207,169,1,208,2,208,188,1 
97,217,240,10,177,205,209,203,144,21,2 
40,12,176,55,177,205,209,203,144 

137 DATA 49,240,2,176,7,196,208,176,41 
,200, 144,219, 169, 1, 133,209, 164,218, 136 
,177,205,72,177,203,145,205,104 

138 DATA 145,203,192,0,208,241,160,3,1 
36, 177,222,72, 177,220, 145,222, 104, 145, 
220,192,0,208,241,232,224,0,208 

139 DATA 2,230,214,228,212,208,134,165 
,213,197,214,208,128,165,209,201,0,208 
,162,169,0,133,212,133,213,96 

140 OPEN #N2, N4,N0 f "K: " 5 GRAPHICS N0:SE 
TC0L0R N2,CL,N4:SETCQL0R N4,CL,N4:GQT0 

290 

150 FOR W=N1 TO 400: NEXT W: RETURN 
160 REM GET RANDOM ACCESS POINTER 
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170 SEC=ASC(P$(RlN3+Nl,RtN3+NU)i256+A 

SC !P$ (RIN3+N2, RIN3+N2) ) : BYT=ASC (P* f RtN 

3+N3,RIN3+N3)) 

180 POINT IN1,SEC,BYT:RETURN 

190 TI*=" ":TI$<B(NH+N1!-N2!=" ":TB(N 

2) =T»s RETURN : REM BLANK RECORD 

200 POSITION N6,22:FN*="";? CHRt(DL)j* 
ENTER FILE NAME "j: INPUT FN*: IF FN$=" 
THEN 240 

210 IF FHt(Hl,NH<"A" OR FN$(N1,N1)>"Z 
■ THEN 240 
220 FI$(N3)=FN$:FI$(LEN(FIt)+Nl)=\DAT 

*:FQR I=N1 TO LEN(FN$):IF FN$(I,I!=V 
THEN 240 
230 NEXT I : FH* ( H3) =FH* : FH* ( LEH ( FH* ) +N I 

)=\HDG": RETURN 

240 POSITION N6=22:? CHRJ (PL); " INVALID 

NAME";: GOSUB 150: GOTO 200 

249 REM Lines 250-260: Replace lower 
case nith the corresponding control 
character. 

250 ? CHR$(125!;"brrrrrrrrrrrrrrrrrv 
FILE: ";FN* 

260 ? "bit DATABASE II «v RECSs ";N 

I+Nl:? "brrrrrrrrrrrrrrrrrv"; 

270 IF RA>N0 THEN ? " FREE: "jMX-NI- 

Nl; 

280 ? :? :? : RETURN 

290 FN$="NONE": GOSUB 250:? "(I) INITIA 

LIZE A NEW FILE" 

300 ? "(L) LOAD A SAVED FILE?":? 

ELECT? ";:GET IH2,A:IF CHR$(A)="I 

N GOSUB 860: GOTO 340 

310 IF CHR$!ASO"L" THEN 290 

320 GOSUB 600: IF JJ=NO THEN 290 

330 GOSUB 200: GOSUB 720 

340 IF JJ>NO THEN 360 

350 ? :? "FOR WARM RESTART: GOTO 360": 

STOP 

360 TRAP 360: CLOSE 

) SAVE CURRENT FILE" 

370 ? "!P) PRINT DATA" 

380 ? "(A! ADD DATA" 

390 ? "(0 CHANGE A RECORD" 

400 ? "(DS DELETE A RECORD" 



? "S 
THE* 



410 ? "(T) SORT" 

420 ? "(F) LIST FILE NAMES" 

430 ? "(N» START NEW FILE" 

440 ? "(G) QUIT":? 

450 ? :? :? " SELECT "; 

460 GET IN2,A:? CHR$(A) 

470 IF CHR$!A)="S" THEN GOSUB 1180:G0T 

360 

480 IF CHR$(A)="P" THEN GOSUB 1280:G0T 

360 

490 IF CHR$(A)="A" THEN GOSUB 1600:G0T 

360 

500 IF CHR$(A)="C" THEN SB=N3: GOSUB 21 

80: GOTO 360 

510 IF CHR$(A)="D" THEN SB=N4:FS=N1:G0 

SUB 2180:6010 360 

"T" THEN GOSUB 1970: GOT 



THEN GOSUB 600: GOTO 
OR CHR*(A)="N" THEN 



520 IF CHR$(A) 

360 

530 IF CHR$!A)="F 

360 
540 IF CHR$(A)="Q 

560 

550 GOTO 360 
560 IF SS THEN 580 
570 GOSUB 1180 

580 CLOSE IN1:IF CHRJ(A)="N" THEN CLR 
:RUN 

590 TRAP 40000: GRAPHICS NO: END 
600 POSITION N2,16i? CHR$(DL);"DATA FI 
LES:":TRAP 610:0PEN #N3,N6,N0,"D:t.DAT 
" : GOTO 620:JJ=N0 

610 POSITION N4,20:? " CAN'T READ DISK 
DIRECTORY. ": CLOSE #N3: GOSUB 150: RETURN 
620 INPUT IN3,A$ 

630 FOR I=N17 TO 20:F0R J=N2 TO 29 STE 
P 9:IF LENIA*XN17 THEN 680 
640 POSITION J, I:? At(N3,10hJJ=JJ+Nl: 
INPUT IN3,fl$:NEXT J:NEXT I 
650 IF LEN(A$XN17 THEN 680 
660 POSITION 8,23:? "PRESS RETURN FOR 
MORE ";:GET IN2.A 
670 FOR 1=23 TO N17 STEP -IMPOSITION 



NO, I: 



CHR$(DL);:NEXT I: SOTO 630 



680 TRAP 360: IF JJ=NO THEN ? :? "N 
TA FILES IN DIRECTORY ";: GOSUB 150* 



690 CLOSE «I3:P0SITID 
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:IF CHR$(A 
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)<>"L" THEN ? "PRESS RETURN TO CONTINU 

E ";:SET #N2,A 

700 RETURN 

710 REM LOAD SUBROUTINE 

720 JJ=N1:60SUB 250:? :? " LOADING ";FN 

i; :TRAP 840:0PEN SN3,N4,N0,FHJ 

730 INPUT #N3 f NH f NI f HL, IL f HX f BLK f RA 

740 DIN H*(HLt(MH+l)),B(NH+l) l I*(HXtIL 

+N1!,P*!MX?N3),T$(NH*IL+IL! 

750 FOR I=NO TO NH+N1: INPUT #N3,J:B(I! 

=J:NEXT IsDIH TI$!B!NH+1!-N1):I$=" ":I 

$(HX*IL-H1)=" ":I*(N2!=I$:SEG=N1 

760 INPUT #N3,A$:IF LEN(A$!=N0 THEN 78 



770 H* (SE6 J =A* : SEB=SEG+250: BOTO 760 

780 INPUT #N3,PL:F0R I=Ni TO PL; BET #N 

3,BYT:P*II1=CHR*(BYT1:NEXT I 

790 CLOSE «N3:0PEN «N1,12,N0,FI$:BQ3UB 

820 

800 SS=Nh RETURN 

810 REH READ ITEMS UNDER HEADING CH 
820 S=BfCH):E=B!CH+Nl)-Nl:L=E-S+Nl:FOR 

I=NO TO NI:R=I:60SUB 170: INPUT IN1,TI 
* 

830 I$(»L+Nl,I»L+L)=TIt(S,E)sNEXT I:R 
ETURN 

840 ? CHRf (156) :CHRt(253) ; " DISK ACCESS 
JERRDR" i : CLOSE INI: CLOSE «N3:JJ=N0:G0S 
UB 150: POP :80T0 340 
850 REH INITIALIZE SUBROUTINE V.2 
860 GOSUB 200 

870 80SUB 250:? :? "HOW MANY HEADINGS 
";:TRAP 870: INPUT NH: IF NH<N1 THEN 870 
880 ? :? "ENTER MAXIMUM HEADING LENGTH 

";:TRAP 880: INPUT HL:IF HL<N1 THEN 88 


890 TRAP 1120:DIM H$(HL*MHJ f B(NH):NH=N 
H-Ni;NI=-Nl:H$="";B!0)=Nl:IL=NO:GOSUB 
250 

900 FOR I=NO TO NH 

910 ? :? "HEADING #";I+N1; H :"-,: INPUT 
A$:J=LEN(A$!:IF J>HL THEN ? "MAXIMUM L 
ENGTH IS ";HL; R , REENTER": GOTO 910 
915 IF J=N0 THEN 910 
920 IF LEN(A$KHL THEN A$(LEN!A$)+N1) = 
■ ":GOTO 920 



930 TRAP 930:? "MAXIMUM LENGTH OF ";A$ 

(N1,J);": "j:INPUT J:TRAP 1120:B(I+1)= 

BCD+J; IF J>IL THEN IL=J 

940 H$ (LEN (H$ 5 +N1 ) =A$: NEXT I 

950 MX=INT ( (FRE (0! -2000! / ( IL+N3) ) : TRAP 

840: OPEN #N3, 6,N0, "D: * J":REM FIND SP 
ACE ON DISK 

960 INPUT IN3,A$:IF LEN(A$KN17 THEN 9 
80 

970 GOTO 960 

980 CLOSE #N3:TRAP 1120:FREE=VAL(At!Nl 
,3))tM125-((NH+l)*HL):FREE=INT(FREE/(B 
(NH+1)+N3)):IF FREE<HX THEN MX=FREE 
990 GOSUB 250:? "DISK SPACE REPORT:" 
1000 ? :? "DATABASE CAPACITY = ";MX;" 
RECORDS" :LRECL=B!NH+N1!:BLK=50:LO=N125 
:HI=BLK:IF HDMX THEN HI=MX 
1010 FOR I=HI TO Nl STEP -N1:IF LRECL* 
KSEC THEN 1030 

1020 FREE=LRECLtI/N125-INT(LRECL*I/N12 
5): IF FREE<LO THEN LO=FREE:BLK=I 
1030 NEXT I:? :? "BLOCK SIZE = ";BLK;" 

RECORDS." 

1040 ? :? "SECTORS/BLK = ";INT!BLK*LRE 
CL/N125+0.5):G0SUB 150 
1050 DIM I$(MXtIL+Ni),P$(KX*N3!,TI*(B( 
MH+l)-Ml),T$<NHtIL+IL)sI*=" ":I$(HXJIL 
-Ni)=" ";I*(N2)=I$:G0SUB 150 
1060 I0=8:R=N0:E=BLK-N1:GQSUB 1070: JJ= 
Nl: RETURN 

1070 GOSUB 190: TRAP 840:? :? : 
GHENT... ALLOCATING DISK SPACE 
RECORDS ";R+1;" TO ";E+1 ;"..." 
1080 CLOSE IN1:DPEN INl,I0,NO,FIt:F0R 
I=R TO E:NOTE #Nl,SEC,BYT:HI=INT(SEC/2 
56):L0=SEC-HIJ256:S=ItN3 
1090 F$!S+N1,S+N1)=CHR*!HI):P$IS+N2,S+ 
N2)=CHR$ (LO) : P* (S+N3, S+N31 =CHR$ (BYT! 
1100 PRINT INljTI$:NEXT I: CLOSE #NlsOP 
EN »N1,12 ! N0,FII:RA=E 
1110 SS=NO: RETURN 

1120 ? :? " ERROR - FILE NOT INITIALIZE 
D":JJ=NO: GOSUB 150: RETURN 
1130 REM WRITE RECORD R FROM TI* 
1140 TRAP 840:GOSUB 170:PRINT #N1;TI»: 
TRAP 360: RETURN 
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1150 REM READ RECORD R INTO TI* 

1160 TRAP 840:R=I:G0SUB 170:INPUT 8N1, 

TI$;TRAP 360: RETURN 

1170 REM WRITE HDG FILE 

1180 JJ=N1:60SUB 250:? :? " SAVING ";FN 

$j:TRAP 840: OPEN «N3,N8,N0,FHJ 

1190 PRINT #N3;NH:PRINT »N3;NI:PRINT I 

N3;HL:PRINT #N3;IL;PRINT #N3jMX:PRINT 

iN3;BLK:PRINT IN3;RA 

1200 FOR I=NO TO NH+N1: PRINT #N3;B(I): 

NEXT I:SEG=N1 

1210 IF LEN(H$K=SEG+249 THEN PRINT IN 
3;H$(SEG,LEN(H$)):GQTQ 1240 
1220 PRINT #N3;H$(SE6,SEG+249):SEG=SEG 
+250: IF SEG>LEN(H$! THEN 1240 
1230 GOTO 1210 

1240 PRINT #N3;"":PL=LEN(P$):PRINT #N3 
jPL 

1250 FOR I=N1 TO PL:BYT=ASC(P$(I)):PUT 
tN3,BYT:NEXT I 
1260 CLOSE fN3:SS=Nl: RETURN 
1270 REM PRINT SUBROUTINE VERS. 3 
1280 FS=N1:IF NI=-N1 THEN GOSUB 2850: R 
ETURN 

1290 GOSUB 250:? "FORMATTED OUTPUT? (Y 
/Ni ";:GET IN2,A:? :IF CHR$(A)="Y" THE 
N GOSUB 2870: TRAP 360 ;FS=N2: GOTO 1320 
1300 IF CHR$(AK>"N" THEN 1280 
1310 FS=N1:G0T0 1330 
1320 IF FS=N2 AND F$="" THEN 1280 
1330 GOSUB 250:SB=N1:? "(S) SCREEN or" 
:? "!P! PRINTER ?";:GET #2, A:? -.IF CHR 
$(A)="P" THEN SB=N2: GOTD 1350 
1340 IF CHR$(AK>"S" THEN 1330 
1350 GOSUB 2190:CL0SE #N3:P0K'E 752, NO: 
RETURN 

1360 REM PRINT ONE RECORD VERS. 4 
1370 ? CHR$!125);:QN FS GOSUB 1430,146 
0: POSITION N2,22:? "PRESS RETURN (ESC 
FOR MENU!"; 

1380 6ET #N2,A:IF A=27 THEN RS=N1 
1390 RETURN 

1400 REM PRINT ONE RECORD TO PRINTER, 
VERS. 4 
1410 ON FS GOSUB 1420, 1460: RETURN 



1420 IF SB=N4 THEN ? CHR$(125); 

1430 PRINT #N3:PRINT #N3j "RECORD "jI+N 

1:PRINT #N3:F0R J=N0 TO NH:S=B(J):E=B( 

J+D-Nl 

1440 PRINT #N3jH$(J*HL+Nl,JiHL+HL)j" " 

;TI$(S f E):NEXT J:RETURN 

1450 REM PRINT ONE FORMAT 

1460 J=Nl:T=NO:B*=""iIF F*(LEN(F$))<>" 

h" THEN F$(LEN(Ff))="6" 

1470 J1=VAL(F$(J,J)):J=J+N1:IF JK5 TH 

EN N=VAL!F$(J,J+N1)):J=J+N2 

1480 ON Jl 60T0 1490,1500,1510,1520,15 
40,1590 

1490 At=H$(NtHL+Nl,NtHL+HL):GOTO 1570 
1500 S=B(N):E=B!N+N1)-N1:L=E-S+N1:A$=T 
I$(S,E):GOTO 1570 

1510 FOR QQ=N1 TO N:B$(LEN(B$)+N1)=" " 
:NEH QQ:GOTO 1580 

1520 PRINT IN3;B$:IF N>N1 THEN FOR J2= 
N2 TO NsPRIHT #N3:NEXT J2 
1530 B$="":SOTO 1580 
1540 J2=J 

1550 IF F*(J2,J2)<>"!" THEN J2=J2+N1:G 
OTO 1550 

1560 A$=F$(J,J+(J2-J)-N1):J=J2+N1 
1570 B$!LEN(B$!+N1)=A$ 
1580 GOTO 1470 
1590 FRINT «N3;B$:RETURN 
1600 SS=NO:IF NI+N1=HX THEN ? :? " FILE 
IS FIJLL ":6QSUB 150: RETURN. 
1610 R=NI+N1:IF R<=RA THEN 1640 
1620 GOSUB 250:E=RA+BLK:IF E>HX-N1 THE 
N E=HX-N1 

1630 10=9: GOSUB 1070 
1640 GOSUB 250:? :? "RECORD NUMBER ";N 
I+N2;" (ENTER ! TO END!":? :? ; FOR J= 
NO TO NH: GOSUB 1710 
1650 IF A* (N1.N1 )=".'" THEN J=NH:NEXT J 
: RETURN 

1660 NEXT J:NI=NI+N1 
1670 GOSUB 1140:S=B(CH):E=B(CH+N1)-N1: 
L=E-S+N1 

1680 I$(NI$L+Nl,NItL+L)=TI$(S,E) 
1690 GOTO 1600 

1700 REM DATA INPUT SUBROUTINE VER3.1 
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1710 ? H*(J»HL+l,J*HL+HL)j" : B ;:INPUT 
A$:S=B(J):E=B(J+1)-N1:L=E-S+N1 

1720 IF LEN(A$XL THEN A$(LEN!A$)+N1!= 

B ":GDT0 1720 

1730 TI$(S,E!=A*:RETURN 

1740 REM CHANGE SUBROUTINE VERS. 2 

1750 GOSUB 250:? "(0 CHANGE ITEM, !K) 
KEEP ITEH, OR":? "(R) KEEP REMAINDER 

OF RECORD" 

1760 ? :? "RECORD ";I+N1:CS=N1:RS=N0:F 

OR J=0 TO NH:? :S=B(J):E=B(J+N1)-N1:L= 

E-S+Nl 

1770 ? H*(J*HLtHl,J»HL+HL);" : ";TI$(S 

1780 IF RS=N1 THEN PRINT : EDTQ 1840 
1790 GET #N2,A:IF CHR$(A!<>"C" AND CHR 
*(AX>"K" AND CHRJ(AX>"R" THEN 1790 
1800 ? CHR$(A):IF CHR*(A)="K" THEN 184 


1810 IF CHR$(A)="R" THEN RS=N1:G0T0 18 
40 

1B20 POKE 752,N0:G0SUB 1710:P0KE 752,N 
1 

1830 CS=N0 

1840 NEH J:RS=N0:IF CS=NO THEN R=I:G0 
SUB 1140:S=BfCH5:E=B(CH+Nl)-Nl:L=E-S+N 
l:I$(ItL+Nl,ItL+L)=TIf(S,E) 
1350 RETURN 

I860 REM DELETE SUBROUTINE VERS. 2 
1870 ? :P0KE 752, NO:? "DELETE THIS REC 
ORD? "5 

1880 GET «N2,A:IF CHR$(AX>"Y" AND CHR 
*(AX>"N" THEN 1880 
1890 ? CHR$(A):POKE 752,N1:1F CHRt(A)= 
"N" THEN 1950 

1900 A$=P$!ItN3+Nl,I*N3+N3):P$(IJN3+Nl 
)=Pt(IJN3+Nl+N3):Pt(RA*N3+Ni)=A$ 
1910 I*(LEN(It)+Nl)=" " 
1920 L=B(CH+Nl)-B(CH):I$(ItL+Nl)=It(It 
L+L+Mi J s IF LEH(»)=Ni THEN I$="":6QT0 
1940 

1930 I$=I*(N1,LEN!I*I-Ni! 
1940 NI=NI-N1:SS=N0jI-I-N1 
1950 RETURN 
1960 REM SORT ROUTINE 



1970 IF NI=-N1 THEN GOSUB 2850: RETURN 
1980 GOSUB 250: FOR J=N0 TO NH:? "f";J+ 
HI; 1 ) ";H$(JtHL+Nl,J*HL+HL):NEXT J 
1990 ? :? "SORT WHICH HEADING ";:INPUT 

J1:J1=J1-N1 

2000 IF JKNO OR J1>NH THEN RETURN 
2010 IF JIOCH THEN CH=J1:60SUB 820 
2020 GOSUB 250:? "(A) ASCENDING, OR (D 
) DESCENDING": GET SN2,A:IF CHR*(A)="A" 

THEN A=NO:GQTO 2050 

2030 IF CHR$(A)="D" THEN A=N1:G0T0 205 

2040 GOTO 2020 



2050 ? :? "SORTING. 



:POKE 207,N0:F0 



KE 208,L-N1:T=USR(ADR(SRT$),ADR(I$!,AD 

R!Pt!,L,NI+Nl,A) 

2160 ? " COMPLETED. ": GOSUB 150:SS=N0:RE 

TURN 

2170 REM SEARCH SUBROUTINE, VERS. 2 

2180 IF NI=-Ni THEN GOSUB 2850: RETURN 

2190 I1=N0:I2=NI:J=N0:C1(N0)=-N1:BS=N1 

:NF=N1 

2200 GOSUB 250:? "SEARCH CRITERIA:":? 

:? "01 RECORD NUMBER" 

2210 FOR I=NO TO NH:PRINT I+Nl;") ";H* 

( I JHL+H 1 f I tHL+HL ) : NEXT I:? :? NH+N2;") 

BEGIN" 

2220 POSITION N2,20:? "WHICH FIELD: "j 

: INPUT I: IF KNO OR DNH+N2 THEN 2220 



70 

2240 C1(J)=I-N1 

2250 POSITION N2.21:? "(1) <= 



(2) 



!3! >= ";: INPUT A:C2(JS=A:I 
F C2(JXN1 OR C2!J!>N3 THEN 2250 
2260 POSITION N2,22:? "VALUE:";: IF CI! 
J)=-N1 THEN 2310 
2270 PRINT " "j: INPUT A$ 
2280 IF LENiAIXIL THEN At(LEN(A$)+Nl) 
=" ":G0TO 2280 

2290 C*(JtIL+Ni,JtIL+IL)=fl$!J=JtNl:IF 
J>N7 THEN 2380 
2300 GOTO 2200 

2310 PRINT " "}i INPUT Ii'lF KNl OR I>N 
I+Nl THEN 2310 
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2320 I = I -N 1 

2330 IF C2(J)=M1 THEN 12=1 
2340 IF C2(J)=N2 THEN 11=1:12=1 
2350 IF C2(J!=N3 THEN 1 1=1 
2360 SOTO 2200 
2370 IF J<N2 THEN 2400 
2380 POSITION N2,21:? CHR$!DL);"1) ITE 
H MUST MEET ALL CONDITIONS":? CHR$(DL) 
;"2) ITEM HAY MEET ANY CONDITION *;:IN 
PUT BS 

2390 IF BS<N1 OR BS>N2 THEN 2380 
2400 RS=N0:J1=C1(N0):DS=N0:F0R J=NO TO 
7: IF C1(J!=-NI THEN J=7:G0T0 2420 
2410 IF JIOCKJ! THEN Jl=-N2 
2420 NEXT J 

2430 IF JD-N1 AND JIOCH THEN CH=J1:G 
OSUB 320 

2440 IF Jl=-N2 THEN DS=N1 
2450 TRAP 2480: IF SB=N2 THEN OPEN #N3, 
NS, HO, "P:" :TRAP 340: GOTO 2490 
2460 OPEN #N3,N8,N0,"E:":P0KE 752,N1:T 
RAP 360:SETC0L0R N2,CL,N4:SETC0L0R N4, 
CL,N4 

2470 POSITION N2,22:? " SEARCHING,.. ";: 
GOTO 2490 

2480 CLOSE IN3:? "PRINTER NOT ON LINE" 
■.GOTO 2840 

2490 I=I1-N1:F0R 19=11 TO I2:I=I+N1 
2500 IF DS=N0 THEN S=B(CH):E=B!CH+N1)- 
N1:L=E-S+N1:TI$(S I E)=I*(»L+N1,»L+L): 
GOTO 2520 
2510 GOSUB 1160 
2520 AS=NO:FQR J=N0 TO N7 
2530 IF C1!J!=-N1 THEN J=N7:GDT0 2720 
2540 S=BfCl!J)):E=B!Cl!J)+Nl!-Nl;L=E-S 
+Nl:B$=C$(JiIL+Nl,J*IL+L):A$=TI$(S,E) 
2550 FOR T=L TO N.l STEP -NhlF A$(T,T1 
=" " THEN NEXT T:A$="":GQTQ 2570 
2560 At=A*(Nl,T) 

2570 FOR T=L TO Nl STEP -NhlF B$!T,T) 
=" " THEN NEXT T:B*="":GOTQ 2590 
2580 Bt=B*!Nl,T) 

2590 ON C2!J! GOTO 2600,2620,2670 
2600 IF A*<=B$ THEN 2690 
2610 GOTO 2710 



2620 IF A$=B$ THEN 2690 

2630 IF T=N0 THEN 2710 

2640 IF B*(T)<>"*" THEN 2710 

2650 IF A$(N1,T-N1)=B$CN1,T-N1J THEN 2 

690 

2660 GOTO 2710 

2670 IF A*>=B$ THEN 2690 

2680 GOTO 2710 

2690 IF BS=N2 THEN AS=N1:J=N7 

2700 GOTO 2720 

2710 IF BS=N1 THEN AS=N2:J=N7 

2720 NEXT J 

2730 IF AS=NO AND BS=N1 THEN 2750 

2740 IF AS=NO OR AS=N2 THEN 2810 

2750 IF DS=NO THEN GOSUB 1160 

2760 NF=0:IF SB=1 THEN GOSUB 1370 

2770 IF SB=N2 OR SB=N4 THEN GOSUB 1410 

2780 IF SB=N3 THEN GOSUB 1750 

2790 IF SB=N4 THEN GOSUB 1870 

2800 IF RS=N1 THEN 19=12 

2810 POSITION N2,22:? " SEARCHING... 

";;NEXT 19: POKE 7 
52, NO: IF RS THEN RETURN 
2820 IF NF THEN POSITION N2,22:? " NO H 
ATCHES FOUND . .."::6QT0 2840 
2830 POSITION N2,22:? "END OF FILE..." 



2840 ? CHRt (253); " RETURN FOR MENU";: 

T #N2,A:RETUR.N 

2850 ? CHRt (253); "NO DATA IN MEMORY, 

GOSUB 150: RETURN 

2860 REM PRINT FORMATTING, V.l 



GE 



" THEN 2900 
;:6ET IN2,A:PRIN 



2870 GOSUB 250: IF F$ 
2880 ? "SAME FORMAT? 
T ;IF CHR$(A!="Y" THEN RETURN 
2890 IF CHR$(AK>"N" THEN 2870 
2900 ? "(L) LOAD FORMAT or":? "(0 CRE 
ATE FORMAT ";:GET IN2,A:? :IF CHR$(A)= 
"C" THEN 2970 
2910 IF CHR$(AX>"L" 
2920 F$=" 
N RETURN 

2930 TRAP 2950: OPEN #N3,N4,N0,FMT$ 
2940 INPUT #N3,NF:F0R J=N0 TO NF: INPUT 
fN3,A$:F$(LEN!F$!+Nl)=A$:NEXT J:GOTO 
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THEN 2870 
:GOSUB 3180: IF FHT$="D: 



THE 



2960 

2950 ? "FORMAT ";FHTt;" NOT FOUND"; 60S 
UB 150:FMTt= N ":Ft="" 
2960 CLOSE *N3: RETURN 
2970 TRAP 2970: NF=N0:.J=N0:Ft="": GOSUB 
25?!:? "START IN THE UPPER LEFT CORNER 
AND":? "WORK ACROSS EACH LINE.":? 
2980 ? "SHEADING'S? "2: ITEM":? "3:TAB 
":? "4:NEXT LINE":? "5:STRING":? "6:EN 
D":? 

2990 INPUT Ji.-IF JKN1 OR J I >N6 THEN 2 
990 

3000 Ft (LEN (Ft) +N I ) =STR* ( J 1 ) : J=J+N1 
3010 QN Ji SOTO 3020,3020,3050,3050,30 
90,3110 

3020 GOSUB 250: FOR T=NO TO NH: PRINT T+ 
Nl;"! " ; H$ (T*HL+N1 , T4HL+HL) ; NEXT T 
3030 ? :? "WHICH? ";:INPUT T:T=T-N1:IF 
T<NO OR T>NH THEN 3030 
3040 SOTO 3060 

3050 ? "HOW MANY? ";: INPUT TsIF KN1 
R T>99 THEN ? "OUT OF RANGE.": GOTO 305 


3060 At=STR$iT);IF T<10 THEN At="0":At 
(LEN(At)+Nl!=STRt(T) 



3070 Ft(LEN(FtS+Nl)=At:J=J+N2 

3090 GOTO 3100 

3090 ? "STRING: "js INPUT At-: At (LEN (At) 

+Nl)="!":Ft(LEN(Fti+Nl)=At:J=J+LEN!At) 

3100 GOSUB 250: GOTO 2980 

3110 TRAP 3170.-G0SUB 3180: IF FHTt="D:" 

THEN Ft="": RETURN 
3120 OPEN ttN3,N8,N0,FHTf 
3130 PRINT IN3;INT((LEN(Ft)-Nl)/250) 
3140 FOR J=N0 TO INT((LEN!Ft)-Nl)/250) 
:IF LEN(FtKJ?250+250 THEN ? IN3;Ft(J* 
250+Nl,LEN!Ft)):G0T0 3160 
3150 PRINT #N3jFt(.J*250+Nl,Jt250+250): 
NEXT J 

3160 CLOSE #N3: RETURN 
3170 ? "FORMAT OUTPUT ERROR": GOSUB 150 
: CLOSE #N3: RETURN 

3180 GOSUB 250:FHTt=»D:":? "ENTER FORM 
AT NAME "j: INPUT A$:J=LEN(At):IF J<N1 
THEN RETURN 
3190 FOR I=N1 TO J: IF At(I,I)=\" THEN 

? :? "INVALID NAHE":GOSUB 150:60T0 31 
80 

3200 NEXT I:FHTt(N3)=At:FMTt(J+N3)=".F 
MT": RETURN 
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Microtext 
1.2 




r laif 1 i i"" 
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by Jon Voskuil 



Microtext 1.2 is a word-processing 
program for an Atari with 16K RAM. 
A printer is desirable. 

Upon running, Microtext 1.2 
displays a mostly blank screen with an 
instruction summary line at the 
top. You can either start typing, or load 
a previously saved file from disk or 
tape. 

Holding down CTRL, and then 
pressing S, L, R, P, or E, will access 
the save, load, review, printout, or edit 
functions. Although not mentioned in 
the command summary on the screen, 
pressing CTRL-Q will quit the 
program. 

Saving and loading files is simply a 
matter of answering the questions 
about the medium to be used (tape or 
disk) and, if disk, the file name. Once 
you have entered a file name, it will be 
used as the default until you specify 
another one or exit the program: Just 
press RETURN when asked for the file 
name. This simplifies repeated saves 
during entry of a long document. 

The review function causes the com- 
puter to return to the beginning of the 
text in memory and scroll through it to 
the end. During this scrolling, you can 
press any key to pause. Then, pressing 
the spacebar will cause one or more 



lines to be displayed; pressing 
RETURN will cause the scrolling to 
continue; and pressing E will enter the 
editing mode. 

In the editing mode, you can move a 
cursor up and down through your text, 
to locate any line which you want to 
edit or delete. This movement is ac- 
complished with the up- and down- 
arrow keys. You have four options 
while in the editing mode: Pressing 
ESC will exit to the review mode; 
pressing D will delete the line at the 
cursor; pressing X will delete 
everything from the cursor to the end 
of the text; and pressing RETURN will 
allow you to edit the line at the cursor. 

If you choose to edit a line, the 
screen will first clear, and then display 
a number of lines of text with a gap of 
several lines in the middle. The cursor 
will be positioned at the beginning of 
the line you have chosen to edit, and 
you can proceed to type in a new line to 
replace the old one. The new one can 
be shorter than the original, or may oc- 
cupy multiple screen lines. Any part of 
the original line that you want retained 
must be retyped: Whatever you type in 
will replace the entire line. When you 
have finished entering the new text, 
press CTRL-F (not RETURN, unless 
you want a carriage return in the text 
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itself). The computer will determine 
whether the text lines need to be rear- 
ranged, and then return you to the 
review mode. 

The printout function allows you to 
send your text to a printer, after se- 
lecting margins, and line spacing. 
Pressing RETURN in response to the 
offered options will select the default 
value indicated. 

Program Notes 

The DIMension statement in line 120 
reserves memory for the strings which 
hold the text. The numbers listed work 



for 40K system with DOS booted, but 
will need to be adjusted downward if 
your system has less available memory. 
All REM lines may be deleted without 
affecting the program's operation, to 
gain more memory space. Many of the 
individual program lines could also be 
squeezed together on multiple-state- 
ment lines; this kind of packing has 
been avoided for the sake of clar- 
ity, but would increase available 
memory and possibly execution speed. 
Of course, you should first verify your 
typing with SWAT before you make 
any changes. 



ss ss ss ss ss ss ss ss ss ss ss 

ss ss 

SS Atari BASIC SS 

SS 'Hicrotext 1.2' SS 

SS Author: Jon R. Voskuil SS 

SS Copyright (c! 1982 SS 

SS SoftSide Publications, Inc SS 

SS SS 

SS SS SS SS SS SS SS SS SS SS SS 



10 DIH CL$(1):CL$=CHR*(125):PRINT CL* 
15 POKE 752,1 

20 POSITION B,8:PRINT "MICROTEK 
T 1.2" 
30 POSITION 12,12:PRINT "BY JON R. VOS 
KUIL" 

40 PRINT : PRINT "COPYRIGHT 1982 SOFTS 
IDE PUBLICATIONS" 
50 FOR Z=l TO 1000:NEXT Z 

Initialization. 

99 REM INITIALIZATION 

100 PRINT CUhTRAP 20000 

120 DIM L$!40),T$U4000),B$(l),C$il),C 

R*(l) ,LIN$ (37) , LN.m (40) , Ft(14! , S$(37) 

,FT$(14),LP(500),TT$!40!,X$!5) 

125 DIH P$(255),PPt(80),Qt(37),Fl$(14) 

130 BKSP=126: RTN=155: SPC=32: B$=CHR* (12 

6):CR$=CHR*(20> 

135 T$="":L$="":LP(0)=0 



140 CHAR=1 
150 LN=1 

160 LIN$=" 

":S$=" 

B 

170 OPEN 81, 4,0, "K: 1 ' 

180 LHID=36 

185 POKE 752,0 

190 V=2:H=2 

200 POSITION 2,0: PRINT ""SAVE A L0AD 

PREVIEW A EDIT A PRINT"j 

210 POSITION 2,1:PRINT LIN*; 

220 POSITION H,V:PRINT " ";B$; 

Input loop. 

499 REM INPUT LOOP 

500 GET fi,C:C$=CHR$(C) 
520 IF C=RTN THEN «=CRJ 

639 REM BACKSPACE 

640 IF COBKSP THEN 720 

650 IF CHAR<2 THEN L$=°":G0T0 500 

660 PRINT BJ;" ";B$; 

670 CHAR=CHAR-1 

675 IF CHAR<2 THEN 500 

630 L*=L*(1,CHAR-1) 

700 GOTO 500 

719 REM CHK FOR CTRL CHAR 

720 IF C<SPC THEN 2000 

739 REM CHK. FOR END OF LN 

740 CHAR=CHAR+1: IF CHARCLMID OR C=SPC 
OR C=RTN THEN 760 
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750 GOSUB 1000 

759 REM ADD TO STRING 

760 L$(CHAR-1)=C* 

779 REM RETURN 

780 IF CORTN THEN 880 
820 PRINT C$ 

840 GOSUB 6000:SLQC=0 
850 CHAR=1 
860 GOTO 500 

879 REM PRINT ON SCRN 

880 PRINT C$j 

899 REH UPDATE SPC PNTER, CHK FOR END 
OF LINE 

900 IF C=32 THEN SLQOCHAR-i:IF CHAR=L 
WID THEN GOSUB 6000:CHAR=1:SLQC=0:PRIN 
T 

920 GOTO 500 

Subroutine to break line at a space and 
to Initialize the next line. 

1000 IF SL0C=0 THEN PRINT :60T0 1100 

1020 SS=LWID-SL0C-1:FDR J=l TO SSsPRIN 

T B$;:NEXT J 

1040 FOR J=l TO SS:PRINT fl ";:NEXT J:P 

RINT 

1050 IF SLQC=LEN!L$) THEN LNXT$=":G0T 

1100 

1060 LNXT$=L$(SLQC+1) 

1080 L$=L$!1,SL0C) 

1100 GOSUB 6000 

1110 L$=LNXT$ 

1115 LNXT$=" 

1120 PRINT L$; 

1140 CHAR=LEN(L$!+2 

1150 SLQC=0 

1160 RETURN 

Subroutine to process command codes. 

1999 REH PROCESS CTRL CHAR 

2000 V=PEEK(34);H=PEEK(85) 
2050 TL=LEN(T$) 

2060 Tt(TL+l)=L* 

2070 POSITION 2,0:PRINT S$:PRINT LINtj 
2080 IF C<>6 THEN 2100: REH CTRL-F (BAC 
K TO EDIT! 



2085 IF CHARM THEN LP (LN)=LEN(T$) :LN= 

LN+1:LP(LN}=LEN!T$):L$=" B 

2090 RETURN 

2100 IF C=18 THEN GOSUB 3000:REN CTL-R 

2200 IF C=19 THEN GOSUB 4000: REH CTL-S 

2300 IF C=12 THEN GOSUB SOOOsREH CTL-L 

2400 IF C=17 THEN END :REH CTL-Q 

2500 IF C=16 THEN GOSUB 7000:REH CTL-P 

2600 IF C=5 AND LN>1 THEN I=LN-1:VV=V: 

POSITION 2,vV-l:G0SUB 9000: GOSUB 3000: 

REH CTL-E 

2900 IF TDO THEN T$=T$(1,TL) 

2950 GOTO 200 

Subroutine to review text. Line 3055, a 
brief delay loop, may optionally be 
deleted. 

2999 REH REVIEW TEXT 

3000 PRINT CL$; "Press any key to pause 
"iPRINT LIN$ 

3040 IF LN=1 THEN 3210 

3050 FOR 1=1 TO LN-1 

3055 FOR Z=l TO 20: NEXT Z 

3060 PRINT T*(LP(I-1)+1,LP!I)! 

3070 IF PEEK (764) =255 AND NOT STP THE 

N 3200 

3080 STP=0:P0KE 764,255 

3090 vV=PEEK(84) 

3100 POSITION 2,1:PRINT LIN$; POSITION 

2,0:PRINT " RTN:Cont SPC:Stp 

E:Edit "i 

3120 X=PEEK! 764!: POKE 764,255 
3125 IF X=42 THEN GOSUB 9000:G0T0 3000 
3160 IF X=12 THEN 3190 
3170 IF X<>33 THEN 3120 
3130 STP=1 

3190 POSITION 2,VV:P0KE 764,255 
3200 NEXT I 

3210 X=LP(LN-1!+1:IF X<=LEN(T$) THEN P 
RINT Tt(X); 

3220 H=PEEK(85):V=PEEK(84) 
3230 RETURN 

Subroutine to save to tape or disk. 

3999 REH SAVE TO DISK/TAPE 
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4000 POSITION 2,0: PRINT S$;: POSITION 2 

,0:PRINT "Save to Tape or Disk? (T/D/E 

SC! "j 

4020 GET II, X 

4030 IF X=27 THEN 4400 

4060 IF X=84 THEN 4200 

4070 IF X<>68 THEN 4000 

4075 FI*=F* 

4080 POSITION 2,0iPRINT S*;:PQSITIDN 2 

,0:PRINT "File Name: ";:INPUT F$ 

4082 IF F$="" AND Fl*=" THEN 4080 

4083 IF F$=" THEN F$=F1$ 

4085 IF F$(1,1K>"D" THEN FT$="D:":FT$ 

(3)=F$:F$=FT$ 

4090 POSITION 2,0:PRINT "Insert disk a 

nd press RETURN";; GET II, X 

4100 OPEN I2,8,0,F$:60T0 4210 

4200 POSITION 2,0: PRINT "Start tape re 

corder and press RETURN";. -GET II, X 

4205 OPEN 12,8,0, "C: B 

4210 PRINT 12; LN: PRINT 12; SLOC: PRINT I 

2; CHAR 

4220 FOR 1=1 TO LN-i 

4230 PRINT I2;T$(LP(I-1)+1 S LP(I)! 

4240 NEXT I 

4250 IF CHARM THEN PRINT #2;T$!LP!LN- 

1)+1) 

4300 CLOSE #2 

4400 RETURN 

Subroutine to load text from tape or 
disk. 

4999 REH LOAD FROM DISK/TAPE 

5000 POSITION 2,0:PRINT S$;:P0SITI0N 2 
,0:PRINT "Load frua Tape or Disk? (T/D 
/ESC) "; 

5020 GET II, X 

5030 IF X=27 THEN 5400 

5060 IF X=84 THEN 5200 

5070 IF X<>68 THEN 5000 

5075 F1$=F$ 

5080 POSITION 2,0:PRINT SUPPOSITION 2 

,0:PRINT "File Name: ";: INPUT F$ 

5082 IF F$="" AND Fl*=" THEN 5080 

5083 IF F$="" THEN F$=F1$ 



5085 IF F$(i,lX>"D B THEN FT$="D:":FT$ 
I3)=F$:F*=FT» 

5090 POSITION 2,0: PRINT "Insert disk a 

nd press RETURN";: GET II, X 

5100 OPEN «2,4,0,F$:GOTO 5210 

5200 POSITION 2,0:PRINT "Start tape re 

corder and press RETURN"; :GET II, X 

5205 OPEN 12,4,0, "C:" 

5210 INPUT I2;LN: INPUT I2;SL0C: INPUT I 

2; CHAR 

5215 T$="» 

5220 FOR 1=1 TO LN-1 

5230 INPUT *2,TT*:T$(LEN(T$)+1)=TT$ 

5240 LP(I)=LEN(T$) 

5250 NEXT I 

5255 TL=LEN(T$):L$=" B 

5260 IF CHARM THEN INPUT I2,TT$:T$(LE 

N(T$!+l)=TTt:LP!LN)=LEN!T$!:L$=TT$ 

5300 CLOSE 12 

5350 GOSUB 3000 

5400 RETURN 

Subroutine to add a line of text to the 
main text string. 

5999 REH ADD LN TO TEXT STRING 

6000 T$(LEN(T$)+1)=L$ 
6080 LPfLN)=LENITt) 

6100 LN=LN+1:LP!LN)=LEN(T$S 
6150 L$=" 
6200 RETURN 

Subroutine to print the text file in 
memory to a printer. 

6999 REH PRINTOUT RTN 

7000 PRINT CL$: POSITION 2,6:LIN=0 
7010 ? "Left margin? (Default = 10) "; 
: INPUT X$:LH=10:IF LENIX$)>0 THEN IF V 
AL(X$)>0 THEN LH=VAL(X$):IF LH>37 THEN 

LH=37 

7020 PRINT .: PRINT "Right margin? (Defa 
ult = 70) ";: INPUT X$:RH=70:IF LEN(Xf) 
>0 THEN IF VAL(X$!>0 THEN RN=VAL(X1) 
7030 PRINT iPRINT "Line spacing? (Defa 
ult = 2) ";:INPUT X$:LS=2:IF LEN(X$)>0 

THEN IF VAL(X$)>0 THEN LS=VAL(X$) 
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7040 LL=RM-LM 

7070 PRINT CL$: LPRINT "°:P$= Bn :CR=0:I= 


70B0 I=I+l:P$(LEN(P$!+i)=Tt!LP(I-l)+i, 
LP(D) 

7090 IF P$(LEN(P$))=CR* THEN CR=1:6QT0 
7110 
7100 IF LEN(P$K255-LWID AND KLN-1 TH 
EN 7080 

7110 GOSUB 7500: CR=0 
7120 IF KLN-1 THEN 7080 
7130 LPRINT S$U,LH);I3; 
7150 LPRINT "" 
7160 GOSUB 3000 
7170 RETURN 
7500 L=LL 

7510 IF LEN(P$)>LL THEN 7550 
7520 IF ( NOT CR) THEN 7640 
7530 LP=LEN(P$):IF LP<2 THEN PP$="":P$ 
=*":GOTO 7590 

7540 PP*=P*(l,LP-l!:P$="sGQTO 7590 
7550 C$=P$!L S L):IF C$=" " THEN 7580 
7560 L=L-1:IF L>0 THEN 7550 
7570 L=LL 

7580 PP$=P$(1,L):P$=P$(L+1! 
7590 LPRINT S* f i,LH) ;PPtj 
7610 FOR J=l TO LS:LIN=LIN+1:LPRINT "" 
:NEXT J 

7615 IF LIN>59 THEN FOR J=l TO 66-LIN: 
LPRINT ni! :NEXT J:LIN=0 
7620 IF LEN(P$)>LL THEN L=LL;GOTO 7550 
7630 IF CR AND LEN(P$)>0 THEN 7530 
7640 RETURN 

Subroutine to readjust lines In memory 
so that they fit properly on the screen 
after editing. 

7999 REM TEXT REJUSTIFY RTN 

8000 PRINT CL$:P0SITI0N 2, 5: PRINT "Re- 
justifying text. , ." 

8010 TL=LEN!T$!:N=EL+NL-1:C=LP!N!+1;SL 

=C-1:CH=C-LP(N-1) 

8020 0*^(0,0 

8030 IF C$=CRt THEN 8100 



8035 IF C=TL THEN FL=1:SL0C=SL-LP(N-1) 

:G0T0 8100 

8040 IF C$=" ■ THEN SL=C 

8050 IF CH<LWID-1 THEN CH=CH+I :C=C+I: 6 

OTO 8020 

8060 IF SL=LP(N-1) THEN SL=C 
8070 LP(NI=SL:C=SL+1:N=N+1:CH=1:60T0 8 
020 

8100 LP(N)=C 

8110 IF LP(N)=LP(N+i) THEN LN=LN-1:F0R 
I=N TO LN-1:LP(I)=LP(I+1):NEXT I 
8120 RETURN 

Subroutine to edit lines of text. 

8999 REM EDIT SUBR 

9000 FL=0:IF CHARM THEN LP(LN)=LEN(T$ 
):LN=LN+l:LP(LN)=LEN!Tt):L$=" :FL=l 
9005 POKE 752,1:IT=I:IF I>21 THEN Vl=2 
2: GOTO 9040 

9010 V1=I+1:P0SITI0N 2,VV 
9020 X=21: IF XM.N-1 THEN X=LN-l 
9025 IF X=IT THEN 9040 
9030 FOR I=IT+1 Tfl X:PRINT T$!LP(I-1)+ 
1,LP(II):NEXT I 
9040 EL=Vl+(IT>2i)*(IT-21)-l 
9050 Q$="UP/DN:t1ove RTN:Edit D,X:Del 
ESC: Exit" 

9060 POSITION 2,0:PRINT Q$;PRINT LIN* 
9080 C=ASC!T$(LP(EL-l)+li!:POSITION 2, 
Vl.-PRINT CHR$(C+128);:GET II, X 
9085 POSITION 2 S VI:PRINT CHR$(CS; 
9090 IF X<>45 THEN 9130: REH UP 
9100 IF Vl>2 THEN V1=VI-1 : EL=EL-i : GOTO 
9080 

9110 IF EL=1 THEN 9080 
9115 EL=EL-5:IF EL< 1 THEN EL=1 
9118 NN=20: IF EL+NN>LN-1 THEN NN=LN-EL 
-1 

9120 POSITION 2,2:F0R I=EL TO EL+NN:? 
S$;CHR$!31)fT$(LP!I-ll+l,LP!I)):NEXT I 
:G0T0 9080 

9130 IF X<>6! THEN 9180:REH DOWN 
9140 IF EL>=LN-1-FL THEN 9080 
9150 EL=EL+1 

9160 IF VK22 THEN V1=V1+1:G0T0 9080 
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9165 NN=4:IF NNM.N-EL-1-FL THEN NN=LN- 
EL-l-FL 

9170 EL=EL+NN: POSITION 2,23:F0R I=EL-M 
N TO ELsPRINT T* <LP ( 1-1 ) +1 , LP U ) >:NEXT 
I: GOTO 9060 

9180 IF X=27 THEN 9580:REM ESC 
9190 IF X<>68 OR Vl=2 THEN 925Q:REH D 
9200 NC=LP(EL!-LP(EL-1):IF EL=LN-1 THE 
N T*=Tt ( 1 , LP (EL-i > > s BDTO 9205 
9202 Tt(LP(EL-l)+l)=T$(LP(EL)+l) 
9205 FOR J=EL TO LN-1:LP(J!=LP(J+1)-NC 
:NEXT J 
9210 X=22-V1:IF X>LN-EL-2 THEN X=LN-EL 

9220 POSITION 2, VI:? S$:POSITION 2, VI; 
IF ELXLN-i THEN FOR J=EL TO EL+X:PRINT 

St:? CHR$(28!;T$(LP(J-1!+1,LP(J)):NEX 
T J 

9225 PRINT St; 

9230 IF EL=LN-1-FL THEN V1=V1-1:EL=EL- 
1 

9240 LN=LN-1:G0T0 9080 
9250 IF X<>88 THEN 9310:REH X 
9260 POSITION 2,0:PRINT "Delete froa h 
ere to the end of test?"j:6ET ll,X:IF 
X<>89 THEN 9060 
9270 LN=EL:Lt="":CHAR=l:SLOC=0:IF LN>1 

THEN Tt=Tt(l,LP!LN-l)):GOTO 9280 
9275 Tt=" 

9280 TL=LEN(T$):GQTO 9580 
9310 IF X0155 THEN 9080 

9319 REN EDIT LINE 

9320 L1=EL-8:IF LK1 THEN Ll=l 

9330 L2=EL+8:IF L2>LN-1 THEN L2=LN-1 

9340 PRINT CL$;"Type new line below ( A 

F to finish) ":PRINT LIN* 

9350 FOR J=L1 TO ELiPRINT Tt(LP(J-l)+l 

,LP(J)):NEXT J 

9360 PRINT :PRINT :PRINT iPRINT 

9370 IF 12>EL THEN FOR J=EL+1 TO L2:PR 

INT Tt(LP(J-l!+l,LP(J!):NEXT J 

9380 POKE 752, OPPOSITION 2,EL-Ll+2 

9390 TLH=LN 

9410 Cl=CHARiBl=SL0CiGHAR=liSLOC=O 

9420 GOSUB 500 



9430 CHAR=C1:SLQC=S1 

9450 NL=LN-TLN: NC=LP (LN-1 ) -LP (TLN-1 ) 

9480 IF EL=LN-1 THEN T*=T$(1,LP(EL-1)) 

:GOTO 9490 

9485 Tt(LP(EL-l)+ll=T*(LP(EL)+l) 

9490 CC=LP (EL ) -LP (EL-1 ) : FOR J=EL TO LN 

-1:LP(J)=LP(J+1)-CC:NEXT J:IF NL=0 THE 

N LN=TLN-1:GOTO 9580 

9500 Xt=Tt(LE.N(Tt)!:IF XtOCRt AND Xt< 

>" ■ THEN T$(LEN(Tt)+i)=" ":NC=NC+1:LP 

(LN-2)=LP(LN-2)+l:LP(LN-l)=LP(LN-l!+i 

9502 CN=LP(EL-1!:F0R I=LEN(Tt) TO CN+i 
STEP -NC:IF KNC THEN Tt(CN+NC+l,I+NC 

)=Tt(CN+ 1,1): GOTO 9504 

9503 T$(I+l,I+NC)=Tt(I-NC+l,I) 

9504 NEXT I 

9505 T$(CN+l,CN+NC)=Tt(LEN(Tt)-NC+l) 

9506 FOR I=LN-2 TO EL STEP -1:LP(I+NL! 
=LP(I)+NC:NEXT I 

9508 MLN+NL-1 : K=LP (LN-2! -LP (EL-1 ) : FO 
R 1=0 TO NL-1:LF(EL+I)=LP(J+I)-K:NEXT 
I 

9510 Tt=Tt!l,LEN(Tt)-NC) 
9530 LN=TLN+NL-1:IF X$=CR$ OR EL=LN-NL 
THEN 9580 

9550 SS=i :P$=Tf (LP (EL+NL-1 ) +1 , LP (EL+NL 
)):UXEN(Pt! 

9560 IF P^SS^GX)" " AND SS<LL THEN 
S5=SS+1:60T0 9560 

9570 IF LF (EL+NL-1) -LP (EL+NL-2!+SS<4J 
ID THEN GOSUB 8000 

9580 TL=LEN(Tt);IF FL THEN LN=LN-1:L$= 
T$(LP«LH-1)+1,LP«LH)):CHAR=LEN(L$)+I:T 
L=LP(LN-1) 
9600 STP=0:PQKE 752,0: RETURN 

Error-handling routine. 

19999 REM ERROR-HANDLING RTN 

20000 CLOSE #2:E=PEEK(195) 

20010 POSITION 2,0: PRINT St;: POSITION 
2,0:PRINT "Error: Code "jE;"; press an 
y key"; 

20020 GET SI, X 
20030 TRAP 20000 
20040 GOTO 200 
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SWAT (Strategic Weapon Against 
Typos) is a debugging utility for any 
Atari. 

One of the major frustrations of typ- 
ing computer programs from printed 
listings is finding typographical errors. 
The process is a time-consuming lesson 
in the computerist's version of 



Following this explanatory article, 
you will find SWAT Tables for each 
program in this book. These tables 
consist of columns of numbers and 
alphabetic codes, and are the result of 
running SWAT. The idea is that the 
tables in the book ought to be identical 
to the ones you generate on your com- 
puter. If there are any differences, then 



S^M 



t 

C 



Murphy's Law, "There is always one 
more bug." 

Enter SWAT to the rescue! Inspired 
by a program with a similar aim that 
appeared in Nibble magazine, we've 
developed this program to help you 
find differences between the program 
listings in The Best ofSoftSide and the 
lines you type into your computer. 



by Jon R. Voskuil 

Atari version by Alan J. Zett 

you know that the program in your 
computer's memory differs from the 
published program, and the table can 
tell you, within a few program lines, 
where to find the error. 

What SWAT does 

Swat generates three columns of in- 
formation. Each entry in the first col- 
umn is a range of line numbers; each 
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entry in the second column is a two- 
letter SWA T Code; and each entry in 
the third column is the length in bytes 
(characters), of the specified program 
lines. 

Superfluous or omitted characters 
will appear as differences in the third 
column. Mistyped characters will ap- 
pear as differences in the second 
column. 

How to use SWAT 

First, type the listing of SWAT that 
appears immediately after this article, 
then LIST it to disk with the command 
LIST "D:SWAT", or LIST "C:" for 
cassette. Then, to use it on another 
program, you must append it to the 
end of the program to be checked. 
Here's how. 

Type the program you want to test, 
then LIST it to tape or disk. Type 
"POKE 580,1", then press [SYSTEM 
RESET]. This will cause your Atari to 
re-boot, clearing the variable table. 
Alternatively, you may turn your Atari 
off and back on. Failure to re-boot 
may cause improper SWAT codes to be 
generated. After re-booting, load your 
program back into memory with the 
ENTER "C:" or ENTER "D:file- 
name" command. Then append 
SWAT to your program with ENTER 
"C:" or ENTER "D:SWAT". 

Once you have appended SWAT to 
your program, type GOTO 32000. You 
will have the opportunity to choose 
alternate "parameters" (more on them 
later), and whether to send the output 
to the screen or the printer. Once the 
SWAT Table has been generated, 
simply compare it to the published one. 
If they are identical, you may begin us- 
ing your program. 

What if the Tables Don't Match 

First, examine the listed line 
numbers in the first columns of the 
SWAT Tables. If they don't match, it 
probably means that you have inserted, 
omitted, or changed one line or more. 



A gross error in the length of a line 
may also cause this type of discre- 
pancy. An inserted or omitted line will 
affect all entries in the first column 
from that point on. Search the lines in- 
dicated by the earliest erroneous entry, 
and correct mistyped lines. Then repeat 
the SWAT procedure above. 

If, after doing this, there are still 
discrepancies in the second or third col- 
umns, more deatiled trouble-shooting 
procedures will be necessary. A bad en- 
try in column three will almost always 
be accompanied by a bad entry in col- 
umn two, although the reverse may not 
be true. 

If the length entry in column three is 
OK, but the corresponding SWAT 
code in column two is bad, the most 
likely cause is a simple substitution of 
one character for another somewhere 
within the indicated lines. For exam- 
ple, a variable name NO may have been 
typed as NO; a comma may have been 
put in the place of a period; a number 
like 32767 may have been mistyped as 
32757; or perhaps a word in a PRINT 
or REM statement may have been 
misspelled. There are more com- 
plicated possibilities, with the same 
number of bytes added in one part of a 
line as were omitted elsewhere in it. 
Also, keep in mind that BASIC 
keywords (PRINT, INPUT, FOR) oc- 
cupy only one byte in memory. Thus, 
although GOSUB looks longer that 
GOTO, typing one for the other would 
change the SWAT code, but not the 
length. 

If the entry in the third column is 
bad, it's possible to get some clue 
about the nature of the error by com- 
paring the actual number to the 
published one. A number that is too 
large usually indicates extra characters, 
while a number that is too small usual- 
ly indicates an omission. Remember 
that keywords may be deceptive in this 
context. The only way to find the typ- 
ing errors is simply to compare what 
you typed line by line and character by 
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character with the printed listing. 
SWAT narrows down the range you 
must search to no more that 12 lines or 
approximately 500 bytes of code. This 
"resolution" can easily be changed by 
answering "N" when SWA Tasks you 
if you want to use standard 
parameters. You then enter, at the next 
prompt, the numbers following 
"NU = " and "B = ", separated with a 
comma. If there is no indication in the 
published SWAT Table of modified 
parameters, just accept the standard 
ones. 

Remember that SWAT is very picky, 
and "knows" nothing about how 
BASIC works. It may therefore balk at 
an insignificant difference in a REM, 



DATA, or PRINT statement. The only 
way to get correct SWAT Tables is to 
type exactly what appears in the 
printed listing. 

Using SWAT to Check Itself 

After typing SWAT and LISTing it 
to tape or disk, re-boot your Atari, 
ENTER SWAT, and add the following 
line: 

32767 REM 

Then, change the value of LN in line 
32000 to 32767. You may then RUN 
the program, and it should generate the 
table printed right after the listing of 
SWAT. 



SS SS SS SS SS SS SS SS SB ss ss 



ss 
ss 
ss 
ss 
ss 
ss 



Atari BASIC 
'SWAT' 
Author: Jon R. Voskuil 
Translator; Alan J. Zett 



SS 
SS 
SS 
SS 
SS 



Copyright (c) 1982 SS 
SS SoftSide Publications, Inc SS 
SS SS 

SS SS SS SS SS SS SS SS SS SS SS 

32000 CLR :LN=32000:NIM2:B=500:DIH T$ 

(40) 

32010 CLOSE #1: CLOSE #2:A=PEEKU36)+PE 

EKU37) 1256: GRAPHICS 0:0PEN 12,4,0, "K: 

":DIH Z$U2):Zt=" 

32015 POKE 752,1:PRINT "}":PRINT :PRIN 
T "NORMAL PARAMETERS? ":GET S2,P:PRINT 

: PRINT 

32016 IF FOB? THEN PRINT "INPUT 8 OF 
LINES, # OF BYTES: ":: INPUT NU,B 
32020 Ci=l:C2=2:C3=3:CQ=256:N=0:PRINT 

: PRINT :? "OUTPUT TO SCREEN OR PRINTER 

? (S/P)":6ET SC2.X 

32022 TRAP 32020: CLOSE SCI. -OPEN #C1,S, 

0,CHRf(X!:P0KE 752,C1 

32025 IF K=S0 THEN ? :? "PROGRAM TITLE 

: ";: INPUT Tt:? SC1;CHR$(15):? #C1;" A 

TARI SWAT TABLE FOR: ";T$:? #C1 



32030 IF P<>39 THEN ? tCl;" (MODIFIED 
PARAMETERS: NU=";NU;", B=";B;")":? SCI 
32035 POKE 752,C1:? SCI;" LINES 

SBAT CODE LENBTH" 
32040 ? #C1;" 



32050 Ll=PEEK(Ai+PEEK(A+ClSSCQ:IF L1=L 
N THEN CLOSE #C1: CLOSE #C2:P0KE 752,0: 
END 

32060 S=G:A1=A:L=L1 
32070 FOR I=C1 TO NU 
32080 AA=fi:A=A+PEEK(A+2) 
32090 L2=L: L=PEEK ( A! +PEEK ( A+l ) ICQ 
32100 FOR J=AA TO A-C1:S=S+PEEK!J):NE)! 
T J 

32110 IF L=LN OR A-ADB THEN I=NU 
32120 NEXT I 

32130 D=INT(S/676!:S=S-DJ676:D1=INT(S/ 
26):D2=S-DH26 

32140 ? #l:Z$(l,6-LEN(STR$(Ll)))iLl; H 
- ":L2;Z$U,12-LEN!STR$(L2))J;CHR$(D1 + 
65);CHRf(D2+65); 

32150 ? lljZ*(l,li-LEN(STR$(A-Al)))jA- 
A1:IF X<>83 THEN 32170 
32160 N=N+1:IF N=19 THEN N=l:? #1:? SI 
; "RETURN TO CONTINUE": GET S2,B:? #1 
32170 GOTO 32050 
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SWAT 



TABLES 



ATARI® SWAT TABLE FOR: 
MELODY DICE 



LINES 



SWAT 
CODE 



100 
200 
1142 
2080 
2542 
2612 
2652 
3000 
3060 
3180 
3300 
3420 
3540 
3660 
3910 
4100 
4320 
4650 
4970 
5110 
5260 
6060 
6190 
10000 
10070 
10160 
10230 



- 90 

- 190 

- 1140 

- 2070 

- 2540 

- 2610 

- 2650 

- 2900 

- 3050 

- 3170 

- 3290 

- 3410 

- 3530 

- 3650 

- 3900 

- 4090 

- 4310 

- 4640 

- 4960 

- 5100 

- 5250 

- 6050 

- 6180 

- 8000 

- 10060 

- 10150 

- 10220 

- 10300 



JY 
BE 
QD 



RF 
IX 



RZ 
VF 
NC 
NZ 
BC 
CQ 
BT 
AR 
TT 
XG 
DP 
NV 
LR 
BB 
SN 
BE 
FT 
PK 
IG 



LENGTH 



375 
638 
566 
510 
546 
537 
355 
508 
439 
358 
498 
251 
330 
416 
204 
255 
379 
519 
288 
251 
485 
271 
536 
534 
555 
547 
524 



ATARI® SWAT TABLE FOR: 
DATABASE II 



LINES 



SWAT 
CODE 



110 

134 

139 

230 

330 

450 

570 

690 

810 

915 

1010 

1100 

1220 

1340 

1460 

1580 

1700 

1820 

1940 

2160 

2280 

2400 

2520 

2640 

2760 

2B80 

2990 

3110 



133 

138 

220 

320 

440 

560 

680 

800 

910 

1000 

1090 

1210 

1330 

1450 

1570 

1690 

1810 

1930 

2050 

2270 

2390 

2510 

2630 

2750 

2870 

2980 

3100 

3200 



KY 
RS 
Z0 
BP 
UV 
RY 
PS 
YM 
JF 



JM 
RB 
TG 
XA 
JH 
BF 
UT 
XE 
LV 
TQ 
DO 
SX 
XE 
EJ 

m 

K0 
HF 



LENGTH 



512 
525 
514 
527 
318 
354 
504 
479 
588 
525 
554 
469 
465 
422 
438 
376 
529 
458 
416 
506 
354 
450 
339 
219 
432 
534 
460 
441 
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ATARI® SWAT TABLE FOR: 


ATARI® SWAT TABLE FOR: 


DEFENSE 




MAZE SEARCH 




SWAT 




SWAT 




LINES CODE 


LENGTH 


LINES CODE 


LENGTH 


10 - 40 CM 


707 


1 - 200 P0 


296 


50 - 150 NH 


539 


210 - 254 BV 


398 


155 - 230 NV 


611 


300 - 430 HV 


541 


240 - 1000 HA 


407 


500 - 600 0Y 


504 


1005 - 3015 HU 
3020 - 3045 IF 


536 
563 


700 - 906 FF 


284 






3050 - 3065 QP 


527 


ATARI® SWAT TABLE FOR: 
MUSIC PROGRAMMER 


3070 - 4040 LB 


585 


SWAT 




4050 - 4125 KJ 


561 


LINES CODE 


LENGTH 


4130 - 6030 EB 


533 






6040 - 7000 SQ 


618 


10 - 30 OR 


532 


7005 - 10045 D8 


531 


31 - 42 K8 


624 


10050 - 11020 QA 


507 


45 - 82 6H 


538 


11030 - 11120 FH 


423 


83 - 704 YG 


505 






705 - 720 XV 
722 - 754 UC 


527 
551 






ATARI® SWAT TABLE FOR: 


755 - 806 NT 


558 


SOLITAIRE 




807 - B14 0U 


510 


SWAT 
LINES CODE 


LENGTH 


816 - 826 0C 


557 






827 - 836 HR 


564 


1-26 EQ 


524 


837 - 910 UC 


569 


27 - 38 MR 


577 


920 - 992 YH 


521 


40 - 50 FJ 


542 


993 - 1000 6R 


579 


52 - 110 CK 


503 


1001 - 1017 XN 


509 


120 - 240 IT 


472 


1019 - 1033 m 


515 


250 - 360 HU 


468 


1035 - 1085 WH 


512 


365 - 460 ZS 


395 


1090 - 1124 WE 


527 


470 - 560 MH 


566 


1125 - 1150 GC 


541 


570 - 680 US 


365 


1151 - 1163 DA 


514 


690 - 785 EC 


548 


1164 - 1185 RQ 


512 


790 - 880 SK 


495 


1186 - 1208 JO 


52B 


390 - 980 XI 


391 


1210 - 1222 NH 


553 


990 - 1100 XC 


368 


1224 - 1901 EG 


547 


1110 - 1160 EF 


519 


1940 - 5016 HR 


614 


1170 - 1240 CI 


554 


5017 - 6502 AS 


512 


1250 - 1330 KB 


529 


6505 - 7530 YN 


446 


1340 - 1450 FH 


369 


7532 - 7560 SR 


547 


1460 - 1550 CV 


622 


7570 - 8453 AB 


537 


1560 - 1630 BS 


552 


8454 - 9031 EF 


605 


1640 - 1640 KM 


16 


9450 - 9469 IP 


7n; 
JXD 
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ATARI® SWAT TABLE FOR: 








OPERATION SABOTAGE 


(Modified Parameters: NL): 


= 5, B = 200) 




SWAT 






SWAT 




LINES 


CODE 


LENGTH 


LINES 


CODE 


LENGTH 


1 - 7 


WH 


176 


1420 - 1450 


Bt: 


259 


8 - 30 


NO 


174 


1460 - 1490 


UL 


217 


40 - 70 


W 


241 


1492 - 1502 


TY 


231 


80 - 100 


NK 


229 


1504 - 1520 


SZ 


153 


110 - 130 


YN 


241 


1522 - 1532 


AI 


216 


140 - 160 


RH 


249 


1534 - 1570 


VN 


171 


170 - 200 


SC 


291 


1580 - 1602 


CY 


245 


202 - 230 


UE 


283 


1604 - 1630 


BK 


225 


240 - 270 


RE 


303 


1640 - 1670 


BN 


242 


272 - 300 


FI 


207 


1680 - 1700 


NI 


231 


310 - 320 


NY 


222 


1710 - 1740 


NN 


211 


330 - 350 


OX 


217 


1750 - 1790 


XF 


267 


360 - 380 


NS 


229 


1800 - 1840 


BK 


277 


390 - 402 


TY 


220 


1850 - 1890 


PB 


174 


410 - 430 


WJ 


222 


1900 - 1932 


RZ 


201 


440 - 470 


KR 


217 


1940 - 1952 


ZH 


201 


480 - 520 


Z8 


244 


1960 - 1972 


QA 


268 


530 - 570 


B0 


261 


1980 - 1992 


KU 


218 


580 - 650 


NO 


206 


2000 - 2040 


LN 


148 


660 - 700 


BQ 


168 


2050 - 2080 


HA 


251 


710 - 732 


SX 


174 


2090 - 2100 


QS 


222 


740 - 760 


QE 


209 


2110 - 2132 


CL 


260 


762 - 780 


DU 


216 


2140 - 2154 


AA 


204 


790 - 830 


VN 


138 


2160 - 2200 


RL 


237 


840 - 880 


NL 


299 


2210 - 2250 


QO 


96 


890 - 930 


FV 


101 


2260 - 2300 


an 


166 


940 - 980 


HX 


105 


2310 - 2342 


BH 


216 


990 - 1030 


RV 


213 


2344 - 2410 


FZ 


205 


1040 - 1080 


PH 


113 


2420 - 2460 


ZS 


223 


1090 - 1130 


TJ 


136 


2470 - 2500 


LS 


228 


1132 - 1150 


BT 


237 


2510 - 2550 


PG 


178 


1152 - 1170 


UO 


212 


2560 - 2574 


XK 


221 


1180 - 1210 


EO 


261 


2580 - 2600 


JX 


201 


1220 - 1242 


SH 


218 


2610 - 2626 


W 


374 


1250 - 1270 


SC 


235 


2630 - 2670 


BG 


201 


1280 - 1310 


DB 


216 


2700 - 2740 


VB 


217 


1320 - 1360 


NH 


209 


2742 - 2772 


RE 


275 


1370 - 1410 


(IB 


269 


2774 = 2790 


EL 


185 
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ATARI® SWAT TABLE FOR: 


ATARI® SWAT TABLE FOR: 


THE FLIGHT OF THE 




FUGUE 






BUMBLEBEE BEE 




(Modified Parameters: 




(Modified Parameters: NU = 5, 

B = 200) 

SWAT 


NU = 5, B = 200) 

SWAT 
LINES CODE 


LENGTH 


LINES CODE 


LENGTH 


1 - 20 


BU 


217 


10 - 40 CO 


264 


210 - 230 


AL 


215 


100 - 120 CA 


205 


240 - 300 


NQ 


202 


130 - 140 XG 


244 


310 - 330 


AR 


243 


150 - 170 EC 


233 


1000 - 1040 


FB 


205 


180 - 190 LQ 


250 


1050 - 1090 


ZO 


213 


200 - 1000 DT 


210 


1100 - 1140 


BY 


209 


1001 - 1005 NK 


169 


1150 - 1190 


HL 


207 


1010 - 1060 HC 


204 


1200 - 1240 


SH 


231 


1090 - 1140 HT 


259 


1250 - 1290 


WV 


239 


1160 - 1220 RU 


213 


1300 - 1340 


UU 


234 


1240 - 1280 SZ 


206 


1350 - 1390 


A0 


232 


1300 - 1340 CP 


206 


1400 - 1440 


SO 


225 


1360 - 1420 QC 


233 


1450 - 1480 


KK 


202 


1440 - 1500 SK 


220 


1490 - 1530 


IB 


249 


1520 - 1580 ZR 


212 


1540 - 1570 


FD 


212 


1600 - 1660 XT 


212 


1580 - 1610 


HY 


209 


1680 - 1740 fffl 


212 


1620 - 1650 


XH 


215 


1760 - 1820 EP 


212 


1660 - 1690 


UN 


221 


1840 - 1900 m 


234 


1700 - 1730 


PH 


204 


1920 - 1980 SQ 


229 


1740 - 1770 


UC 


215 


19999 - 30200 8N 


344 


1780 - 1810 


XS 


224 


30210 - 30310 LN 


279 


1820 - 1850 


K0 


225 


30320 - 30330 HD 


101 


1860 - 1870 


KY 


114 


ATARI® SWAT TABLE FOR: 
MINIGOLF 

SWAT 


LINES 

602 - 630 


SWAT 
CODE 

m 


LENGTH 

510 


LINES CODE 


LENGTH 


640 - 700 
702 - 750 


0T 

ji 


533 
571 


8 - 38 RP 


538 


40 - 74 AN 


519 


752 - 804 


IZ 


540 


90 - 103 VS 


510 


810 - 852 


YX 


519 


109 - 152 UC 


542 


854 - 910 


m 


576 


154 - 205 BS 


537 


915 - 1000 


ON 


607 


210 - 231 LM 


517 


1002 - 1020 


BZ 


501 


232 - 310 A J 


554 


1030 - 1100 


AH 


547 


320 - 420 ZQ 


CIC 

JlJ 


1102 - 1150 


DO 


524 


430. - 510 XP 


542 


1152 - 2030 


NJ 


501 


512 - 600 AZ 


537 


2040 - 9999 


PJ 


209 
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ATARI® SWAT TABLE FOR: 


ATARI® SWAT TABLE FOR: 


FLIP-IT 




BATTLEFIELD 




SWAT 




SWAT 




LINES CODE 


LENGTH 


LINES CODE 


LENGTH 


100 - 160 IV 
170 - 200 SV 
205 - 330 XH 


565 
556 
501 


10 - 40 AF 
42 - 130 m 


507 J ^ 
258 «/" 

533 ^% 


340 - 632 SN 


431 


140 - 1080 IK 


640 - 706 WC 


542 


1090 - 2050 HO 


509/ J 


708 - 832 QI 


513 


2055 - 2170 TP 


470*/ • 
439 »^V 
2120 V- 
257 SJ 

309 >y 


840 - 1000 NN 
1005 - 1040 DV 
1045 - 1080 JB 


546 
530 
554 


2175 - 3060 m 
4000 - 4115 FN<3 - 
4130 - 5060 SA 


1085 - 1120 TO 


578 


5070 - 6030 HI - 


1125 - 1160 EY 


545 


6035-6150 HA-- 


275 • 


1165 - 2008 XD 


579 


6155 - 7080 GB - ~ 


344 


2010 - 2050 WQ 


552 


7090 - 8020 NC - ■•* 


344, 


2060 - 3032 TB 


534 


8025 - 8110 FH - - 


496 


3034 - 3080 CT 


333 


8120 - 10110 III'- - 


"329 


3082 - 3130 XC 
3132 - 4020 IP 
4050 - 4092 CQ 


454 
489 
518 


10120 - 11060 CH - — 
11070 - 12080 XT 
12090 - 13070 DC - ~ 


302 , 
4 g.s/V 

412^^" 

'58 V 


4100 - 4132 EY 
4134 - 4174 NB 


535 
530 


13080 - 13120 JN~ 






4180 - 4230 GN 


596 


ATARI® SWAT TABLE FOR: 


4240 - 5040 NB 


564 


CHARACTER GENERATOR 


5050 - 5100 UN 


584 


SWAT 




5110 - 7010 SV 
7020 - 7030 KK 


556 
71 


LINES CODE 


LENGTH 


10 - 36 HF 

^ Jl ^ ft ft u 


400 
414 






38 - 72 OH 


ATARI® SWAT TABLE FOR: 


73 - 102 HQ 


306 


WORD SEARCH 




104 - 172 YR 


455 


PUZZLE GENERATOR 




174 - 280 EH 


401 


SWAT 
LINES CODE 


LENGTH 


290 - 358 UJ 


478 






360 - 470 AH 


327 


90 - 135 BT 


529 


480 - 566 GZ 


413 


140 - 210 IK 


502 


568 - 630 FK 


370 


220 - 330 DZ 


457 


640 - 690 JY 


528 


340 - 450 FJ 


413 


700 - 810 IC 


495 


460 - 570 61 


462 


820 - 910 XH 


416 


580 - 690 AQ 


347 


920 - 1030 YZ 


364 


692 - 760 PB 


290 


1040 - 10050 FH 


402 


765 - 770 NQ 


56 


10051 - 10070 CI 


138 
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ATARI® SWAT TABLE FOR: 
GAMBLER 


ATARI® SWAT TABLE FOR: 
LEYTE 

SWAT 




SWAT 




LINES CODE 


LENGTH 


50 - 100 0A 


534 


LINES 


CODE 


LENGTH 


110 - 127 KL 
130 - 176 DC 


566 
518 








1 - 20 


TU 


534 


177 - 240 YE 


537 


22 - SO 


OF 


552 


250 - 320 ID 


510 


81 - 100 


m 


503 


330 - 420 UL 


555 


110 - 156 


TO 


516 


425 - 510 UY 


526 


160 - 200 


Ki 


527 


520 - 560 CH 


555 


202 - 250 


XT 


502 


570 - 610 VE 


550 


252 - 310 


ZD 


583 


615 - 680 ZA 


597 


320 - 361 


PJ 


632 


690 - 770 NN 


519 


362 - 390 


0J 


531 


780 - 885 TB 


312 


392 - 421 


E0 


563 


890 - 940 HG 


548 


450 - 473 


H6 


512 


950 - 980 KL 


511 


480 - 522 


vz 


570 


1000 - 1040 OL 


514 


524 - 542 


KT 


557 


1050 - 1100 GZ 


511 


544 - 600 


XF 


534 


1105 - 2080 KD 


550 


602 - 631 


AC 


530 


2090 - 3060 AZ 


574 


632 - 662 


ZE 


527 


3070 - 4040 OE 


535 


664 - 714 


JH 


670 


4050 - 6030 8F 


529 


716 - 734 


EB 


549 


6040 - 6110 AI 


503 


735 - 750 
751 - 770 


TH 


569 


6120 - 7010 SD 


164 


0T 


539 






780 - 810 


JD 


545 


ATARI® SWAT TABLE FOR: 




SPACE RESCUE 




820 - 870 


QY 


529 


SWAT 




880 - 930 


GA 


519 


LINES CODE 


LENGTH 


932 - 960 


SL 


544 


*— ' 




962 - 1002 


JJ 


584 


10-40 HU 


531 


1004 - 1030 


TJ 


507 


45 - 80 HH 


516 


1032 - 1070 


IF 


648 


81 - 147 BR 


503 


1072 - 1122 


EV 


567 


150 - 220 HI 


522 


1130 - 1172 


s\: 


572 


225 - 285 XI 


546 


1174 - 1202 


JK 


589 


290 - 400 RW 


550 


1204 - 1234 


EY 


538 


410 - 465 ZU 


528 


• 1240 - 1280 


XH 


581 


470 - 550 GP 


554 


1282 - 1320 


BY 


556 


560 - 670 JO 


575 


1330 - 1362 


XL 


608 


680 - 699 ZV 


546 


1370 - 1450 


VA 


522 


1000 - 1060 TB 


530 


1452 - 1475 


AP 


580 


1070 - 1140 BX 


555 


1480 - 1482 


VH 


105 


1142 - 1152 TO 
1154 - 1160 HU 


642 
300 
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APPLE™ SWAT TABLE FOR: 
QUEST (Modified Parameters: 


LINES SWAT CODE 


LENGTH 


1090 - 1097 


XU - 


178 . 


NU = 5, B = 


200) 




1100 - 1120 r- 


ZZ - 


140- ® 




SWAT 




1125 - 1145 


RE 


198 ^ 


LINES 


CODE 


LENGTH 














1200 - 1207 


HP- 


178 


1 - 7 


JO 


290 y 


1210 - 1230 


RD - 


171 


8 - 100 


UQ 


207 ^ 
228 - * 


1235 - 5000 


SZ~ 


173 


102 - 108 


EF- 


5005 - 5020 


BSf 


263 y 


110 - 125 


VH- 


167 


5025 - 10O15 


CV 


212 v/ 


130 - 150 


ZT 


108 */ 


10020 - 10030 


NGw 


224 — 


155 - 175 


JL 


111*' 
116 y 


10032 - 10042 


JP 


213 \J 


180 - 200 


ZG 


10045 - 11014 


LF 


25h^ 


205 - 225 


HO 


118 V 


11015 - 11030 


VY 


244 V 


240 - 280 


LR 


117*' 


11032 - 11042 


UO 


21lV 


290 - 330 


XA 


115 s/ 


11045 - 15100 


J6 — 


190 


340 - 380 


NZ 


118 yJ 


15102 - 15200 


L0 " 


167 


390 - 430 


XK 


118^ 
118 ^ 


15202 - 15300 


DK*~ 


163 


440 - 480 


HG 


15302 - 15320 


KK*> 


195 


490 - 530 


YI 


118 V 


15400 - 15410 


pa *~ 


205 


540 - 580 


YD 


115 ^ 


15420 - 15507 


BY ~*~ 


128 


590 - 602 


QT 


246 • 


15510 - 15522 


RJ ■* 


123^ 


603 - 610 


GH 


269 V 


15523 - 15601 


BS — 


83 


615 - 810 


HS 


297 \/ 


15605 - 15610 


ZB 


135 V 


812 - 830 
"832 - 840 " 


01 


216 y _ 


15620 - 15699 
15700 - 15705 


NO — 
YV - 


144 
155 


OC 


216 </ 


845 - 860 


EU 


228 V 


15706 - 15710 


RJ - 


123 


862 - 880 


RL 


226 V 


15711 - 15720 


QT- 


200 


882 - 903 


VA 


266 >/ 


15750 - 16002 


HR— 


143 


905 - 911 


YV ~ 


204 


16003 - 16008 


YV 


147^ 


912 - 916 


JK 


131V 


16010 - 16020 


UB- 


120 


917 - 925 


TU 


226 V 


17000 - 17015 


zo — 


176 


930 - 942 


EG" 


255 


17020 - 17024 


GL 


201 u 


945 - 955 


JH 


234 -J 


17025 - 18005 


PR — 


188 


957 - 980 


XI 


113 "J 


20000 - 20010 


SV 


236 • 


990 - 994 


QD- 


268 - iS 


20011 - 20019 


Hft" 


234 


995 - 998 


TE- 


292- <9 


< 20020 - 20025 


HI 


243^ 


999 - 1003 


EF- 


200 


20027 - 20035 


VU ~ 


222 


1004 - 1020 


W *- 


191 ~ $ 


20036 - 20050 


HV 


137 ^ 


1022 - 1030 


TF - 


169 


20055 - 20099 


LO 


228 ^ 


1031 - 1060 


QL - 


239 


21000 - 21005 


YW - 


317-— 


1061 - 1065 


JY 


271 >/ 


21010 - 21022 


HN ~ 


185 


1070 - 1077 


IV 


__206y 


21025 - 30000 
30010 - 30021 


PA - 


257 ~ 

228 - 


"ToSF- 1086 


YJ 


218 ^/ 


1087 - 1088 


NK 


246 y 


30030 - 30050 


LD - 


153,- 
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ATARI® SWAT TABLE FOR: 
TITAN PART 1 


ATARI® SWAT TABLE FOR: 
MICROTEXT 1.2 


SWAT 








LINES CODE 


LENGTH 


SWAT 




1100 - 1140 RL 


589 


LINES CODE 


LENGTH 


1150 - 1200 NZ 


509 






1210 - 1250 JO 


527 


10 - 130 UG 


528 


1260 - 2160 PH 


532 


135 - 499 WB 


380 


2170 - 3020 6L 


569 


500 - 720 EU 


239 


3030 - 20020 VY 


593 


739 - 879 TI 


222 


20030 - 20070 Zfl 


507 


880 - 1110 ZV 


328 






1115 - 2085 TN 
2090 - 3040 VQ 


284 
378 






ATARI® SWAT TABLE FOR: 


3050 - 3180 0A 


390 


TITAN PART 2 




3190 - 4075 ZN 


323 


SWAT 




4080 - 4240 BP 


500 


LINES CODE 


LENGTH 


4250 - 5082 PC 


361 


300 - 1030 NE 


574 


5083 - 5250 SE 


430 


1040 - 1140 LV 


516 


5255 - 6999 16 


246 


1150 - 1240 VC 


589 


7000 - 7100 FF 


539 


1250 - 1310 DL 


553 


7110 - 7550 XK 


268 


1320 - 1350 CZ 


540 


7560 - 8010 10 


419 


1360 - 2020 RB 


606 


8020 - 9000 YX 


435 


2030 - 2120 fiZ 


561 


9005 - 9100 AY 


500 


2130 - 2185 UA 


560 


9110 - 9190 CG 


514 


2190 - 2250 ZH 


518 


9200 - 9260 BD 


526 


2300 - 2350 JQ 


549 


9270 - 9380 CK 


460 


2360 - 2445 HL 


529 


9390 - 9502 DK 


549 


2450 - 2500 U 


504 


9503 - 9580 MB 


542 


2510 - 2550 HP 


533 


9600 - 20040 HX 


213 


2560 - 2650 GP 


524 


60000 - 60110 TH 


449 


2660 - 3010 RZ 


532 


60120 - 60130 HG 


110 


3020 - 3500 FS 
3510 - 3550 AP 


535 
543 










3560 - 4105 LU 


579 


ATARI® SWAT TABLE FOR: 


4110 - 4150 ZP 


603 


SWAT 




4160 - 5000 V0 


566 






5010 - 6000 SP 


517 


SWAT 




6010 - 8000 SB 


505 


LINES CODE 


LENGTH 


8010 - 8550 BH 


532 






S560 - 8620 RU 


585 


32000 - 32025 JU 


581 


8630 - 20020 PH 


582 


32030 - 32130 DZ 


455 


20030 - 20070 HK 


507 


32140 - 32170 KP 


293 
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Typing Got You Down? 




The Best of SoftSide contains over 
twenty programs for your Atari® — 
that's one big typing job. You'll 
spend hours at the keyboard, and face 
the inescapable fact of typographical 
errors. 



Wouldn't you like to: 




• Avoid typing? 

• Use and enjoy these 
programs right 
away? 

• Avoid worry about 
typos? 

That's why we've prepared The Best of SoftSide Disk Version. That's 
right — on four diskette sides, every single program in The Best of Soft 
Side. You just insert the disk into your disk drive, and leave the typing to 
us. All you have to do is use and enjoy The Best of SoftSide. 

If the form below is missing, send your name and address, along with 
$49 (check or money order), to: 

SoftSide Publications, Inc., 
Dept. BOSDV-AT, 6 South Street, Milford, NH 03055. 



Order with this form or facsimile. 

Please send me the Atari® Best of SoftSide on Disk. 

Credit card holders may call (603) 673-0585, and have your VISA or 
MasterCard ready. 

Name 

Address 

City 



_State_ 



_Zip_ 



$49 to be paid by: □ Check 
Name of Cardholder 



D M.O. D VISA D MasterCard 



MC# and Interbank#/VISA# 

Exp. Date 

Signature 



Allow 4-6 weeks for delivery. 

Price subject to change without notice. Atari® is the registered trademark of Warner Communications. 
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There's more: H»S 

• Reviews — of the software and hardware 
products you want to know about. 

• Articles — about all aspects of BASIC 
programming. 



READ THIS: 



f the high price of commercial software 

and the lack of clear information about 

your microcomputer has got you down, 

here's the solution you've been waiting for! 



SoftSide Magazine 

SoftSide is a favorite of computer 
users and hobbyists alike. They rely 
on it as a prime source of programs, 
reviews and articles for the Apple®, 
Atari®, TRS-80®, and IBM® PC 
microcomputers. SoftSide is the 
magazine for the microcomputer 
owner who wants to learn BASIC 
programming, learn MORE about 
BASIC programming, or just wants 
to have FUN! SoftSide gives you the 
BASIC code listings of several pro- 
grams — adventures, utilities, 
games, simulations, you name it — 
for your computer EVERY MONTH. 



Tutorials — on graphics, use of impor- 
tant commands, and more. 
Programs — each month SoftSide 
publishes a variety of programs for the 
Apple®, Atari®, TRS-80®, and IBM® PC. 



As you can see, you'll receive pages and pages of information and entertainment from 
SoftSide. Here's the best part: 

A subscription to SoftSide is just $30 a year. That's 12 issues for only $2.50 each! What a 
value! 

Use coupon to order. Mail to: SoftSide Publications, Inc., 6 South St., Milford, NH 03055 

□ YES! Send me the first copy of my Soft- $30/yr for USA/Canada/APO & FPO only. 

-sj ■ !_.! !_l« 1 p or or( jers to Mexico — $46/yr. Other 

foreign orders — $68/yr. 

D MasterCard □ VISA □ Check is enclosed 

Name of Cardholder 



Side subscription right away! 



I own an D Apple® □ Atari® 
□ TRS-80® □ IBM® PC 

Name 



Address 

City/State, 
Zip 



MC#and lnterbank#/VISA# _ 

Exp. Date. 

Signature 
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Use This Coupon or Facsimile to Order 

Make Check or M.O. payable to: 

SoftSide 

6 South Street 

Milford, NH 03055 

Name 

Address 

City 



_State_ 



-ZIP- 



Prices subject to change without notice. Apple®, IBM", 
Atari®, and TRS-80® are registered trademarks of The 
Apple Computer Company, IBM, Inc. Warner Communica- 
tions and The Tandy Corporation respectively. 



I am sending: | 

□ $149/yr for SoftSide Magazine Plus Disk i 

Uareinn ■ 

I 
I 
I 
I 



Version 
□ $99/yr for SoftSide Magazine Plus 

Cassette Version 
(Prices for USA Only) 

Send me the D Apple® D Atari® D TRS-80® Mod I 

D TRS-80* Mod III D IBM® PC (Disk Only) Version 

I am paying by: □ Check or M.O. D MasterCard D VISA 

Name of Cardholder 

MC#/lnterbank#/VISA# 



_Exp. Date_ 



Signature . 
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Disk Version Directory 



Program Name File Name 

Defense DEFENSE 

Quest QUEST 

Quest2 QUEST2 

Space Rescue SPACERES 

Maze Search MAZESRCH 

Minigolf MINIGOLF 

Flip-It FLIPIT 

Battlefield BTLFLD 

Solitaire SOLITAIR 

Gambler GAMBLER 

Operation Sabotage OPSAB 

Leyte LEYTE 

Titan TITAN 

Titan Part 2 TITAN 32K.PT2 

Word Search Puzzle Generator WDPUZGEN 

Fugue FUGUE 

Flight of the Bumblebee BMBLBEE 

Melody Dice MLDICE 

Music Programmer MUSIPROG 

Character Generator CHARGEN 

Random Access Database DATABASE 

Microtext 1.2 Word Processor MICROTXT 

SWAT SWAT 



NOTES: 



NOTES: 
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• Become a fearless fighter on a Quest 
through a labyrinthine dungeon! 

• Become an admiral in the Battle of 
Leyte! 

• Spend a leisurely afternoon playing 
Solitaire. 

• Manage your information with Data 
Base. 

• Write letters with Microtext. 

• Much, much more. ..Utilities. ..Games... 
Adventures... 

For over four years, SoftSide, "Your BASIC 

Software Magazine," has been bringing 

thousands of Apple®, Atari®, and TRS- 

80® users the best in BASIC entertainment 

software, as well as reviews and articles, 

all designed to help you get more out of 

your microcomputer. 

Now, from SoftSide's past. ..we've selected 
the most useful. ..the most enter- 
taining. ..the most fun-filled programs 
we've ever published. The Best of SoftSide 
offers you many hours of fun and pro- 
grams of enduring value. 



SOFTSIDE PUBLICATIONS, INC. 

Milford, New Hampshire 



